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29 Programs 
for the 
Commodore 64/264 


Here are some samples of the cursor control and color caracters. 


PRINT" S383" REM CURSOR HOME 

PRINT" <ITITI" > REM CLEAR HOME 

PRINT" SBBBBI" >: REM CURSOR RIGHT 
PRINT" SSSI" REM CURSOR LEFT 
PRINT" Se" > REM CURSOR DOWN 
PRINT" 'TTIT]": REM CURSOR UP 

PRINT" @aaaa" REM <CTRLO-<RVS ON> 
PRINT" See" © REM <CTRLO-<RVS OFF> 
PRINT" Malay" :REM <COMMODORE KEY>-<4> 
10 PRINT" S339" "REM <CTRL>-<3> 

11 PRINT"FOR OTHER COLORS SEE MANUAL” 
12 PRINT" i@@@@i" -REM CCTRL>-<6> 

13 PRINT" Geass" REM <CTRL>-<7> 

14 PRINT" 44544" REM <CCTRL>-<2) 


WONHAUMAWMH 


The listings were printed with a Commodore VC1525 printer. The 
line width was limited to 42 characters per line. Please take this in 
account when you count spaces and cursor control characters, or 
when you try to identify color characters. Use the following 
figure to count the characters. y 


| 
12345673901234567890 1234567390 


OMAN OAHPWNH — 
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Because it is not always easy to identify the control characters in a BASIC 
listing, we put together a summary of the C-64 cursor control characters. 


ASCII PRINTS DESCRIPTION 


146 Reverse Off Use CTRL key 


Reverse On Use CTRL key 


RUN / STOP 


Clear CRL 


Home 


Cursor Up 


Cursor Down 


oD ehH ow wa 


Cursor Left 


Cursor Right 


Runfill 


After starting this program with RUN, it takes a 
while before anything happens on the screen. The 
computer first has to move the screen memory and 
the character set. 


The game takes place in a maze. The object of the 
game is to place as many dots as possible in the 
maze by moving your player around. Two, elements 
are trying to stop you from scoring too high : 


1. The computer places dots of its own and 
erases your dots 


2. A spider is moving around in the maze 
which tries to kill your player. A collision 
with the spider will kill you. 


The time used, the number of collisions, and the 
score are displayed by the computer. The keyboard 
or a joystick may be used to play the game. 


1 PRINT"CRBRBBBBPLEASE WAIT !": PRINT: PRIMT 

"LOADING iy: * 

2 giaesear et} 7? POKES6. 67: POKE1,51:2=24576 
8=53248 

3 Y=PEEK CX) : X=X4+1: I FX=SPS44THENS 

4 POKEZ, '?: Le=2+1 : GOTOS 

= POKE1,55:POKES6576.6:POKESS272, 25: POKEG4 

a »63: POKES6333, 29 

3 FORT=253647T025351 :READA: FOKEI.A:NEXT 

16 DIME#¢165,.N$¢18>,.PUC16)> > H#¢G9="COMPUTER 


26 BO=6:Ul=s7se3 
36 FORI=82sTO966 : READA:FOKEI. A: MEXT 


48 “ich Bepoee conga te RO ceo 
sa SI= 4272: POKESI+5. &:POKESI+6, 240: POKESI 
724,15" 


Sa PRINT! 0]! -PORESS2Se. 1 ‘PORES SOS 1, 1 
166 PRIMT" MSS 222222222 R RRR RERRRRRER RRR RRS 


HERE EES 


208 FORI=1T0S 
250 PRINT"S 


C4 
avo PRINT"& £828 S28 828 S28 ERE ERE ERE FE 
a eke e 
2rG PRINT"S 822 222 828 $F" RFE FRE ERE FE 
# RFE & 
err PRIWT"&S £28 288 BRS RHE ERE RRR ERE EE 
x ERE Fy 
Zou MEST 

238 PRINTS 


e515) PRINT "££ 2388 REERRERSRRRERERSRRRERR REEL 
ZEREE EE 

398 #X=SG: PU=6: PC 

466 Fo=H17498: POKEPC, 91: POKEPO+D1,6 

Sa PS=1 ge 

1866 AH=174S9° HCG =4G HEL o=-4O AC S9=1 RSS 
=~] 


1685 SP=18325 
1015 TI$="GO0GG0" :POKE1G10, 149: POKE1G11,71 


1826 LC=AM: PORESI+1.46:POKESI+4,6 
1636 AN=AW+e C8 
1646 GOSUELGG1G: IFPEEKCAN+H ¢@) »=92THENI E46 


1858 POKEAN, 95: POKEAN+DI.6:POKELC. 96: POKEL 
C+DI,S 
1166 SP=FPEEK¢101@)+256#PEEK (16119 °>P1=SF-FO 


IFPO=SPTHENSE48 
IFP1>=48THEMP2=48: GOTOLSa8 
IFP1<=-48THENP2=—46: GOTO1268 
IFPIS@THENP2= 1: GoTOL208 

=~ 1 
PS=PEEK (PO+P2) ‘IT FRP3*92THEN1254 


Bin e oo 
1G on 


ee ae 
Qaae 


Oe 
oe 


1205 IFP2=-PSTHEMPZ=P5:GoTO1258 
1218 PS=F2 
{258 PI=PEEKCPO+PS) : IFP3=92THEMPS=-PS: P3=P 
4 
1253 IFPS=9STHENF'3=32 
1255 POKEPO+PS, 91 :POKEPO+PS+D1.4:POKEPO. P4 
POKEPO+DT » 5: P4=P3: PO=PO+PS 
SH20 SYSCaSa) 
S038 IFPEEK¢1012)<>91 THEN4aaa 
S84 POKE1G12, 0: PRINT "Te ACOLL 
ISION!": GOSUEBSS808 : GOTOZAAGa 
488 Y2=INTCSX-CTI“682) PRINT MS" VE"M "ET 
FZ¢=QTHENZ 3888 
agoa GOTOaZE 
10080 REM COMPUTER CONTROL 
1AG1G RASINTC4#RNDE 19) . 
LOG20 IFPEEKCAN+N¢ RAD )=92THENRETURM 
{Q038 IFX<¢RAY=-N¢8) THENRETUPN 
BOSH CR=NCH) :NCGI=SKCRAD: KCRAISCR 


=BeBe REM ' 
we IFEQ=1THEMFRINT "Sa MGAME 
I \t "7 
=AA1G REM 
2BG2h REM 
=HASE REM 
=Aea4de REM 
“ABS POKEAM. 32: POKESP. 32: POKEPO. 32 
SHG68 FORP=17439T01S325 
ZOQ7G IFPEEKCP9=S3THENPOKESI +4. 17: POKESI+1 
» TU: PUSPU+1 PRINT "isi" | PU: POKER. 32 
SG1HA FORI=1F°489T01S325 
28118 IFPEEKC 1)<>36THENZ@128 
SAL112 POKESI+4,32:PORESI+1, TU 
SAL1S PCSPC+1 PRINT "CS ee ee ee 
" PC: POKET. 32 
ZA128 ‘TU=IMTEPC3> :POKESI+4, 8: MESTI 
Se7aG BO=BO+1- IFERO=1THENPRINT "sd 
ME"  SM=INTCPUA1G> : GOTO4e88 
21808 FORI=1 70560: GETS#: NEXT 
Z1G8S PESPE+1: IFP2=11 THENP2=1:FORI=1T018°E 
$0 T)="" MENT 
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21818 PRINT'SENOUR SCORE ="PU 
21828 PRINT"COMPLITERS SCORE ="PC 
Z1GSG PRINT: IMPUT"ENTER YOUR NAME"; H#¢P2> 
21646 IFPS2C2THEMPUC@2=PC 
21@se PUCPZ9=PU 
21852 FORI=8T018: IFPUCCP®<PCTHENPUCCP)=PC 
21854 HEXTI 
21GS5 GOSUBEeeEA 
2@1G@6@ FORI=8TO1@: IFN#¢1l9<> "COMPUTER" THEN2 1 
828 
2iar7e@ CP=] 
Z1hee HEXTI 
21168 PRINT" SHIGH SCORE 
21116 PRINT 
e2ll2@ FORI=aTor2 
21125 IFI<>18THEMPRIMT" "; 
21138 PRIHTI+1". PLACE"; E#¢1): NEXT 
SOG4E PR IAT" Steeqereeteateretetereretetererereree eh! GAME 
7 PRESS. Y URN 
38845 REM 
SABSE GETAS: IFA="'"THENPOKE1@1@,.149:POKE1 
B1ii.71:GOTOsa 
BHG6A IFAS<>"H" THENSGGSa 
Shar ENT 
SoHHe POKESI+4, 129 
S2818 FORT=255TO@STEF-1:POKESI+1,.1:HEXT 
So82E POKESI+4. @: RETURN 
S3808 DATAG,. 66.165,24,255.36,66,36,8,239.2 
39, 239,0, 253,252,253, 6,6,56,40, 56 
S816 DATA, A, G,24,96,255, 255.2 i es bat Aye 
4,24,68,126,90,.126,126, he 
25828 DATA, 8, G.24.24,8,68, 
4$6A88 DATAI YS 3.2 2 a ORE ears 13 3ou2 3,173 edt 
Desak awete sk Sov 254 


480@3 DATAI62.4,.161,251 

$8685 DATAZHL.91,.208,4,141,244,3,96,162.8, 
165,54, 123 biyeler hae 173,241,323, 248,3,76, 137 
46618 TDATAS) 165 ,283,232,221,.231,.3,.288,.6,18 
By. 235535. 76,119.35, 224.4, 205,248 

40015 DATA, 48,.12,24,101,253, 133,253,144, 
avec 254. 76.,142. 35,2 

40828 TATALAL, 252,.1393,253,176,2,198,.254,16 
eA. 161.253 


BS 


48825 DATAZH1. 92.205,.1,96,169,.935,129, 251.1 
69,94, 129.253.165.253 

4ne3A DATA141, 242.3, 165.254.141.243, 3,24,.1 
AS, 148,133. 254,.24,165, 252 

468235 EDL 148,133,252,.169.5 
a, S129, 25 169. 1¥. 141, 4,212.96 
4848 DATAZ24.2 34,.173,8.228,162, 
S27, 3, DAE, Bs 18 29, 235, 3 

46645 DATATS., 1139.3,.2e4,4, 248,246,¢ 96 

4Ae7a DATAL: 26, 125, 123,119.62, 18, 47,44,216, 
4$8,255.1.8,6,149,. 71.8 

SOOO INPUT" TMMMMMTOYSTICK CONNECTED ¢¥¥'H 


129,251.16 


G,232,221, 


a" RE 
s8@82 IFAS="""THENPOKEIO@9, 1 
AGES PRINT" RULES» 77 CYA 


SHELE GETAS: IFAS=""THENSee18 

SHGSH IFAFCS"S'" THEMRETURH 

SHB38 PRINT"T RULES 

SAG46 PRINT" SITRY TO USE YOUR PLAYER 

he PRINT"“a @° TO FILL THE AISLES WITH 


SAG20 PEINT"YOUR PLAYER CAM BE CONTROLLED 
SAGR PRINT" a0m FOR UP .a.@ FOR RIGHT . SAS 


Sa100 PRIHT"DOWN AND &.@ FOR LEFT 
S611 PRINT"YOUR PLAYER ONLY MOVES, IF THE 


SeQL28 PRINT"ACCORDING KEY IS PRESSED. 
FAIS PRINT"AMY LOCATION ‘Ou PASS WILL BE 
MARKED 

SAIdG PRIHT"BY A DOT. 

SeiS@ PRINT"THE COMPLITER ALSO MOVES A FLAY 
ER: 

SAi6Q PRINT" “’—*. THIS PLAYER DELETES ‘‘OUR 
SA17A PRIHT'"DOTS. COLLISIONS WITH THE COMP 
LITERS 

SAG PRINT"PLAYER DOW’T MATTER. 

Sacae PRINT" THE FIRST ROUND LASTS &8 SECON 
ns. 

SACL FRIHT"AFTER THAT THE COMPUTER WILL C 
CUI T 

HLS PRINT YOUR TOTS AND YOU WILL GET AM 


5 


HUET 


TUTE 


NM! SENT Oo ON LT | 


FHe3H PRINT"ADDITIOWAL SECOND OF PLAYTIME 
FOR 


sH24G PRIHT"EVERY TEM DOTS 

S258 FRINT" rPRESS 
AMY KEY 

SH268 GETA€: IFAS=""THENSa2EG 

S278 PRIM" RULES 

SHS28 PRINT" SWHEHM THE GAME IS OVER, YOU HA 

WE 
@33@ PRINT"TO ENTER "YOUR HAME AND THE COM 


AT 
= 
= to, 
m 
2 


240 FRINT"WILL DISPLAY A LIST OF THE TEN 


SAI58 PRINT"PLAYERS. 
S368 PRINT" wPRESS A 


=1886 GETA#: IFAS=""THENS1 eee 

S118 PRINT " MAeereetete EADY 

S182@ FORT=17T01 G08: HEXT 

S138 PRINT" STEADY 

S184@ FORT=1701 888: NEXT 

S1845 PRINT 

[1858 FORT=17T026 | 

S1igé@ PRINT" GO" :-FORJ=1T01G0:HEXT: PRINT" a 
GO": FORK=17016@: NEXT : HEXT 

S2eAGe RETURM 

BHBGR FORT=17T0F2:FOR.J=P2ZTOISTEP-1 

EMA1E TFPUC I-19 >=PU¢.19THEH6G054 

B20 HYV=PLICI-1> > PUCI-19=PUC79 > PUCID=HY 
SA HVE=HEC I-19 HFC I-19 SHC TD NEC TOSHYS 
att WERT I. 1 

64 FORI=8TOrR2 

ara EfcTy=STRECPUCTI 29+" FOINTS= "+H$¢1>: 
>RETURH 


ir ya 
QD 


1 ty 


A= 
TT IT) 
a3 

t 


Wallbreaker 


This is the famous arcade game. You must cut out 
as. many bricks from a wall as possible, using a 
ball that bounces back and forth. You must keep 
the ball from hitting the bottom wall by moving 
your paddle. If you miss the ball, it is lost. 
Each player has five balls. As your score 
increases, the game starts to speed up. Use keys ", 
" and '.' to move the paddle. 


= PRINT" CIM(e0eee ORR RRER ALL ERE 
i or 

3 FORI= Spek sal NEXT: FASS42r2:POKESS231,15 
1@ FOR I=829 TO ear 
15 READ M: FAKE I. 
<8 NEXT I 

ao M=@ 

28 DATALES, 283, 201,47.2 
48 DATA. 268 76, s1Br 
ra 1 


DATA *.169,168.15 
6A DATA 261.44, 288, 18.22 


ber 


DATA 3.169,96. 157, 


SOQ DATA 7.232.142. 224,3.96, 174, 224.3, 76,61 
S5 REM SUBROUTINE FOR CURSOR CONTROL 

100 PRINT "SIMMIMSTO YOU KANT THE RULES 7 ¢¥ 
HY" 

110 GET At: IF A¢="N" THEN ZOO 

128 IF Afc>"y" THEN 114 

120 PRINT "2 RULE Stee 

125 PRINT " YOU HAVE TO DESTROY A WALL BU 
ILT" 


7 


14@ FPRIWT 


1435 PRINT 
ia | 2 
158 FRINT 


166 PRINT 
165 PRINT 
1?@ PRINT 
6D 

17? PRINT 
179 PRINT 
186 PRINT 


182 PRINT: 


185 PRINT 


"OF THREE LAYERS OF BRICKS BY 
"HITTING THE BRICKS HITH THE BE 
"MIF THE BALL HITS THE BOTTOM 


“ LINE IT IS. COST.*WOU HAVE” 
SA TOTRE OFS BRE LS = 
"THE BALL CAH BE THROWN BACK W 


" THE CURSOR. TQ MOWE THE" 

" CURSOR USE “,’ FOR LEFT AND" 
tor “, “(FOR RIGHTS” 

PRINT 

"Wiel PRESS ANY KEY WHEN READY |!" 


138 GET At: IF Af="" THEN 198 
195 REM EXPLANATION OF RULES 
=A 


&@ PRINT 
25 PRINT 


STR TITS 
214 FOR I= 


wel SPCC 43 Lj, | AERC Ee enY 
"TD" SPC C4} " ingen 
1703 


220 PRINT SPC(4)" "SPC(3Q9"1" 


238 MEXT I 


248 PRINT SPCC4)" ZL EE tt bt pt 
Ltt f § BALL": 


2o8 PRINT 
l | I J" 


SPC(4)" ILL Pb bb 


ie 
268 PRINT SPCC4>" 131 tt Et Pt tl tl 
| 1 I I | 


278 FOR I= 


aoa PRINT 


298 NEXT I 
SPCC4" | i 


295 PRINT 
I 


ah | A 


SPCC4o "8 MP SPCCSE> "1" 


299 REM DRAM PLAYFIELD 

368 POKE 992, 14:S=38 

385 REM STARTING POSITION OF CURSOR 

BiG Sl=S42r2:POKESI+6, 248: POKESTI+13,.240°F0 
KESI+28. 2468 

B28 POKESI+24,15:POKESI+1,.49:POKESI+8, 30:P 
CKEST+13,1S5 


co 


S30 FPOKESI+5, 6: POKESI+12,.0:POKESI+19 

40@ H=1:G05UB 1880 

SAQ FORT=Sé6écei Tosee3@: POKEL.S: NEST 

SAS P=iSAo+INTCRNDe 12838): POKE Poi: POKEF+ 
FASS 


S1@ RD=INTCRHDIC 1 #3)+1 

S2@ OM RD GOTO S36, 546, 558 

SSQ F=398: 6070 Séea 

S48 R=4de: GOTO Séa 

SS@ FR=41:G07T0 Sée 

REM RAHDOM POSITION ANDI! DIRECTION OF E 
AT BEGINNING 

REM 

REMe4 SHIFTS KEY 

POS dan ae Te A: POKESI4+18.6:°S4'S 


A 
ut 


Wao DM -~JLPI 0 OFT on 


e 


ae K=1 TO S:NENT K 

SHSCHIS 

Z==PEEKCP+R) 

IF 2=322 THEN POKE P.32:P=P+R:POKE PP. 
OKEP+FA.5: GOTO 68a 

FEM PLAYFIELD OFEN 

IF 2=96 THEM H=H+1:GOSUB 18@8:GOTO See 


mo oy OA 
ed a ee OU ON Se a 


7) iy 


REM BALL HAS HIT BOTTOM LIME 
IF 2=117 THEN F=F-2:FOKESI+4.17:GOTO 6 


mt i Ty 
mc 


=, 
— 


FEM RIGHT BORDER 
IF 2=118 THEM R=F+2:POKESI+4.17:G0T0 6 


Ty i 


oon 


FEM LEFT BORDER 

IF 2=1660 AND PEEK CP+R+19<>16@ THEMPOKE 

411.33: R=-39:G0TO 66a 

BA3 IF £=166 AND FEEKCP+R-19<>160 THENPOKE 

SI+11.33:F=-41:GOTO 6a 

645 REM LEFT ANI RIGHT FART OF CURSOR 

658 TF 2=121THENPFORESI +4. 17° R=R+5GN CR 086-8 

Mo: GOTO BAA 

o IF 2=160THEHPOKESI +4, 33: R=R+SGHCR2#¢-S 
‘G07TO 6a 

55) REM se sei _OF CURSOR 

eee FORE FP+R.3 

ES IF 2=2h4 rue POKE P+R+1. 52: M=M+1>POKE 


it) 
Bt BES BOS Of) 
fi 


1098 Ty 


ay 


in 


T. 


oS 
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HH 


12,33:60T0 666 
64 TF 2=2560 THEN POKE P+R-1,32:M=M+1:FPOKE 
a eae 
IF M35 THENS= ‘GOTO 669 
IFM>25THENS=18:GOTO 669 
IFM2> 1 @THENS=28 
IF M=45 THEN S@@ 
R=R+SGHCR2#¢(-SE0: PRINT" Sita" 5 M5 sa" GO 
TO ean 
67a REM BRICK WAS HIT 
S86 IF M45 THEN 308 
S65 IF H=1 THEN PRIMT "TieleteevOU HAWE DESTR 
CED THE WALL WITH OWE BALL" :GOTO 83a 
SLi PRIWT "SOMetou HAVE DESTROYED THE WALL 
WITA" S29 Mo BRS 
238 OM H GOTO &46,945,858,855. 86 
a4 Kt="TOP CLASS": GOTO a7A 
845 K$="EXCELLENT": GOTO Sra 
a5 Kkf="VYERY GOOD": GOTO 8? a 
S55 K#="NOT BAD": GOTO $76e 
K#="CLOSE" 
PRINT "MTHAT WAS “ske,"I" 
GOTO 344 
PRINT "DI‘M SOORY YOU DIDN’T MAKE IT" 
PRINT: PRINT "MAYBE HEXT TIME !" 
PRIHT “Seem YOU WAHT TO TRY AGAIH ¢Y/ 


Ty tr hy 


rT 
4 Ty oT Ty 
“Sodan + fh + 


Oy sy Fy 


i LOD ho i hi bo Se bn a oo 


— BPC my 


TD i Coe) me 


66 GET At 

Fa IF Ag="9" THEN N=1:M=@:GOTO 208 
Sa IF A$<>"N" THENS68 

85 PRINT" CI" 

56 PRINT" SNMEYE BYE |" 

a5 EHD 

139 


REM DISPLAY OF RESULTS 

POKE P» 32: i ah 

FOR I=1 TO 5 

POKE FSi: POKEP+FA: 2: POKESI+1,.15:POKE 


ss 
at 


FOR 4 =1 TO S@:NEXT J: FOKESI+4.6 
POKE P, 96: POKESI+1.1@:POKESI +4, 33 
FOR J=1 TO S@:HEXT J: POKESI+4,6 
HEXT I: POKESI+1,49 

IF We THEM 88a 


tke 
13% 


RM Bhoi+ foe 


ell cell eel cel ee OE ed 
ay Ey i 
ada oe ates 


—_ 
i=) 


114@ RETURH 

115@ REM SUBROUTIME FOR BLINKING AND DISPL 
AY OF HUMBER OF BALL 

REAL. 


11 


MAMICO 


Versions of this. game are known under the name 
MASTERMIND (R).« 

You can play it on your C-64 like in the original 
version, with up to eight colors. You can select 
the colors and you can choose whether you want to 
guess different or the same colors. 


After you have started the program with RUN it 
takes a while before anything happens on the 
screen. You have three options : 


1) The player tries to guess the computers 
combination. 

You can choose from 5 to 8 colors. 

The cursor will be placed in the first box. 
Press a number from 1 through 8 to select a 
color for every box. The cursor can be moved 
left and right with the cursor control keys. 
After you hit RETURN you will get a _ report 
about your guess. The left of the two numbers 
tells you the number of correct colors in the 
wrong place, the right number tells you the 
number of colors in the correct position. 

When you press ‘'H', the computer will 
disclose its combination. 


2) The computer guesses. 

If you select this option, the computer tries 
to guess the combination you are thinking of. 
The computer tells you what it thinks is your 
combination and you have to tell it how many 
colors are correct, but in the wrong place, 
and how many colors are in the correct 
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position (separate the two numbers by a 
a comma). 


3) The computer plays against itself (demo of 
the game). 

1 POKES6333.127:FOKES6.67:POKE1.51:2=24576 

. a — hm Ee ee! 

= PEEK CR) hSe+1 | IFH=57°344THEN4 

PORES, Ys 2=2+1: GOTO2 
POKE1.55:POKES6576.6:POKES3272. 25: POKEE64 

68: POKES6333, 129 

& FOR T=17015:READA: NEXT: FORI=845701G19:REA 

DA? POKEL. A: WEST 

18 PRINT"2" :PRIMTTAECS). "MAS TERM IN 
me 

20 REM 

BA PRINT: PRINT: PRINT: PRINT 

40 PRINTS COPYRIGHT BY RAINHER HEIGEMMOSER 
1383 

Sa FORJ=1 703088: HEXT : POKES3286, 8: POKES3281 
Ss: POKES4296,15 

SS POKE1814,.4:POKE1@15,6:POKE1@16.@8:POKE1@ 

17.8: POKE1@15.48:POKE1@193.6 

26 POKESS468, 12 

ar PRINT" TM": XS=PEEKC 18149 : QQ=PEEK¢1@18)9:U 

WI=PEEKCLE195 

act Wr=PEEKC1@15> :TT=PEEK¢C 18165 :PP=PEEK¢1@1 

2° TT=TT+PP 188 : (O=00+UU71668 


mm fh 3 Bee 


53 PRINT" COMPUTER ‘OU 
BE PRINT: PRINT" SCORE... TIME SCOR 
Ei. TAME 


64 PRINT: PRINTTABC49#x3 TABCSOTTs TABCS4 0745 

TARC23 5900 

65 FORIT=1TO03S@6@ : NEXT: PRIMT"S]" : GOTO6eaaa 

Et PRINT" SIMeneeretereyetere) 

eer pono HUMBER OF POSSIBILITIES DES 
‘ ! 

re GETH: IFN=@THEN?re 

vo JFM<STHEMPRINT"SEMTER S OR HIGHER PLEAS 

E": FORI=1T028@8: NEXT: GOTOES 

Yr IFNSSTHENPRIHT" ENTER & OF LESS PLEASE 
" FORT=1 T0288: MEST: GOTOBS 


me PRIET 
S04 PRINT" eleleleteqetetererel" PRINT’ SHOULD I CALCUL 
ATE S DIFFEREWT WUMBERS + 
188 FRINT"ENTER “4'" OR te PLEASE ! 
182 GETRE: IFRS "YS "AMDXECo "HH" THEN LAS 
Loa PRP PETAL eaSe WAIT | 
SOA FORKE=1705 
S16 AIRC KE DS=INTCRND 13 fave 
a8 TF RE="H"ORKK=1THEMHEa 
S48 FORT I=170KK-1 
A TRASK CER O=A4K eC To THEMS A 
68 MESTIT 
ial) HESTEK 
PAG FORCCSETO?: EEX CC =8: FORTIS 1770S: IFA 


| 
DSCC THENEE: ACCPSERRCCO 41 
rig HESTODS cc 

ree AASe 0 PORES 1 TOS  ARS=AASHM IDSC STRE CAS 
HEEKD »L3° NEAT 
1218 IFO$="3"THENEATA 
2&Qia REM 
SB1S PRIHT'GK, I GOT IT. LET’S BEGIM ": FOR 
J=17O01888: HEMT: PRINT CI" 


SA18 Wh=TI i= P44 

S28 PRINT" ! a 
S35 PRINT 

2640 PRINT" | SLT TY Dame Bot OS 


2045 IFRt="2"nens="9"THENIAESA 
2058 PRINT'CIT!" 
2051 GOSUESOGGG: PRINT 
952 TFET $="H"THENFOR T=1 TOSG08 : NEXT PRINT: 
PRINT :PRINT :GOTOSEGR 
SASS WU=UU+¢TI-G> : FORU=1TOS 
256 MCUI=NCLL 1418: MCID=INTCHCLD 9 HCL EKE 
LITE HCLI=8 CUED 9-HCLID NEXT 
2h6@ IFG$="3"THENSERG 
2865 PRINT! PRINTS "M, ° PRINT! PRINT 
TARE: "I" FSPCC495 = "3 SPOLETO 
2ar7@ PRINT’ TY :PRINTTABCZ25"1 0 I"GSPCC1) 
as PL Se Leer eG pdt i aie Tome tee 
2080 TFOS="2"0RQS="3"THENI 1018 
spea BRE="" 


‘ 


BA1G FORI=1 705: BBF=BRS4+h IDS ¢STRECHC-I +693, 
weld 

SBZA HEAT 

SB30 FORFF=@TO? > GGHCFF=@: FORHH=1TOS 

S040 IFVYALSMIDACBRS, HH, 19 9=FFTHENGGH CFF O=G 
GHCFF 941 

SB5@ HEXTHH. FF: GGN=8 

Sh6@ FORFF=aTor 

SaPe IFEEXCFRISGGH¢CFF > THEHGGN=GG%+GGh CFF > : 


StF 


2550 FORHH= 1TOS: 
#186 IFMIDS¢ AA. HH. 12=MIDS¢BRRF, HH, 1 > THENHH 
m=HHet+1 
3114 NEsT 
S120 ¥=GGH~HHY: Y=HHY 
SASA PRINT "TN" :-FRINTTABC4) ix 
S838 PRINT! <I) eh ees 
Bae 
re: GOTO116a2 
3645 PRIMT: IFY’=SGOTOS1a 
SAS@ GOTCSE1S 
Sig@ PRINT: PRINT: PRIHNTTABCS >); "CONGRATULATI 
CIWS Ft 
S288 PRINT: PRINTTABC #3; "SOL! ARE A SMART KI 
Tr '": GOSUBS180@:PRINT"" 
SeA4 WW=INTCUU6e@9+PEEK C1G19>#6G+PEEKC1@19 
» QQ=INTCUUSEED > UU=UU-O0e68 
=e etG FOKE1818, 00: POKE1G19, UU 
210 2=2+PEEK(1815):POKE1@15.2:GOTOS?r 
Face CLR: PRINTTABC1@> "PLEASE SELECT 1" PRI 
HT: PRIHT 
SA1@ PRINT"1 ‘S'QU GUESS":PRINT"2 COMPUTER 
GUESSES": PRINTS COMPUTER DEMO 
Bb2a GETCF: IFOF="1"THENCLE : GOTO6S 
BA38 IFO¢="2"THENEESA 


6835 IFQ$="3"THENH=HS : s#="H" > GOTOSaG 

BEd GOTOBESE 

BHA eee TOW HAVE A COMBIWATIOH <8 C 
OLORS). PRESS ANY KEY | 

HEA GETRS: IFR¢="" THENEE AEA 
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ei. TTL REM GR YG So ite Terao, "<TIMAL 


=i 
a= 


"Z=O: PRINT" /SN=1:TH=d sUN=1:VRe1:2%=0 


iT) 
a 


ASCLI="G1234":AgC2)="S56Er" 
IFTH=1THENSS00 

IFTH=2ANDDY¢ 1 <STHENSSAG 

OND 1 1GOSUBIS100, 13260, 13300,13400, 1 


Oo 0 oo oy 


ae ae ear as 
FU iS 


ris 3 


OMT CS GOSUBIF1 G8, 14208. 14388. 14468, 1 


Tm ¢ 
es 1 iT i 


ESM: MNSLEMCVS  DINSDECL 3: IFDIN<OTH 
IGOSUB1 6000 ME=Hs 

WE=NE! MESLENCWS) DIXSDNC2): IFILN<2@TH 
/0SUIE1GO8G : NF=LF 

NHSNi+d 

WHSDN¢ 1 )4DN¢2) 

TRDS¢ 1 =BANDDNC2)=THENE1 25 

IFHi=1 THENIFBY (1 =10RB%¢29=1THENS125 
CHANIDS CME Ui DRC1)) + Fii=1 *St=1 
IS=MIDS NE, WH. DCS 

FCH=" "ANDDECS" " THENG1 17 

GOTOe12e 

WHSYNETINCZ) : [FVEONETHENS 125 

IFD< 1 =GTHENS1 46 

Ux=1: GOTOS 188 
28 TFCS<>""ANDDS=""ORCHCS" "ANDDS<>" "THEN 
UssUsgenie 1 :G0T0S140 
S125 PRINT" SMMN" : FORI=1 7020: PRINT" SMRONG 
INPUT 1": FORJ=1705@:NEXTI 

8126 PRINT" ": FORJ=1 7050: NE 
S140 1EW<STHENI2000 
e142 Su=a 


to i ON Cd 
nh DoAN too 


a 4 
en 


1 im 


“ss 
oll aed sent peel cee eet SS ©) io fam) J a it 


10 J Oy OS o 


_Mi omni MMM Ow Mo omMs pi 


Pes aa te ee 


t 


S145 Fee 

2158 Us=CH4S4F$ 

S168 IFUS=A¢¢ Te > THEN 2688 

S1i7B AKC THUS 

S588 FORAS=1T08 :-GHCAS. Ted=8: NEXT 

S514 FORES=17T038:FORCS=1T05 

S526 IFMIDS¢cot, BS. 19=MIDS CAFC THO. C8. 13 THEM 
GHCBE, TRO=GHCES. Te ott 

S538 NENTCE, BS 


IFTH<STHENLe@e5 

FORTIS=1 707-1: GH=8 

FORES=17T06 

IFGRCES. Teo 2=Gh CES. IS) THENGH=Gx+Ge CES 
:GOTOSS98 

GA=GR+GRCES, THO 

HEXTES 

IFGHAS DA CIS THEN 12088 

MEX TING 
FORT=17T05:POKES34+1.VALCMIDS¢At¢ TAs. 1 
HERT : SY'S¢ Sa 

OMPEER (S234 GOTO18886, 14865 

18665 TeeTHe-1: IFDRCTA=STHENS125 

18966 GOTO118146 

186s IFTR<STHENFORI=17T03:POKES39+1.VALCMI 
DScAt¢ TH. 1.190: HERT 

lease PRINT: GoOTOZH18 

18898 FORE=17T05:UcE»=PEEK(S39+E) : NEXT 
18168 PRINT'TIT]": GOSUBS@SG@:PRIHT . 

18118 REM 

igi2e6 PP=PP+<TI-TT> 

14938 IFQ#<>"3"THEN1 1808 

18985 ASC THI="" > FORI=17T05:AF¢ TH OSAFCTHO+RI 
GHTEC STRECPEEKCS39+1 99,19: MEXT 

18996 BES=AE¢ Te): GOTOSE38 

11868 INPUT" RRR Bec THO. RE: R=EVALCRES CACT 
MSR: GOSUBSAGTE 

11482 TT=TI 

118GS Ue s=CKC THO : FORE=1706 :POKEC1G13+64T2 
+E),UCE? : NEXT: POKESS2, Tx#6-1 

11@05 Det THOSEBRCTHO+CHKC TH) : GOTO2065 

L1Q1@ IFDRC THO<STHENTH=TH4+1 ¢ IFTA<C4THEHSO38 


Sewae Sooo aA 
Ov aIneaa~ oS m 


Be oma oS CAH 


i- LM oOo M- Ooo 


11614 IFDM<THo<STHEN1 2a98 
11815 RRA=RRA+1: IFRRA=1THENT#=AS¢ THD 
11626 IFCH¢CTHO<STHENTH=TH+1 - ASC THO=T#: GOTO 


11925 2=2+PEEK(1414>:POKE1@14.2 

11G27 PP=INT¢CPP/6@>+PEEK (1816) #6G+PEEK (101 
YP: TT=INTCPPY68) > PP=PP-TT#68 

11825 POKE1616.TT:POKE1@17.PP: GOSUB31 980 :F 
ORI=1 T2888: NEXT> CLR: GOTOS? 

11838 IFTH=2ANDDG¢ 19=S50RTX=SANDDE¢ 1 > =Q@THEN 
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S80 

11848 GOTOSeGe 

12008 TFSX=GTHENS180 

12005 IFFN=2THEN1 2500 

12018 ONWEGOTO1Z106, 12200, 12308.12400 
12164 ONDEC12G0TO12158 

1212 Gt="/1111#8" GOTOLZ5aa 

12158 G$="1111#" -GoTOLe5eq 

12200 ONDYC 1 2G0TO12240, 12260 


12220 GE="/111e- 222812281128" GOTO1 2588 
12246 GE="1118°111811-°1817118" > GOTOL258 
12268 GF="111¥112e122e" > GOTO12568 

12388 OND 1 2GOTO12348, 12368, 12338 
12328 GE="/11 #4 22e43384 12H 1 Se Soe": GOTOLS 
SAG 


A 
5) 


GF="118-11#/ 2281718124" > GOTOL2588 
Stale Saget 2 coment ‘W#2-1#": GOTO1LZ508 
BE="11#1 21 See2Se22e53e" :GOTOLSS aa 
OMT <1po0TO12420, 12438, 12448, 12450 
BF=" "12k S84He" GOTO S588 
GE="14/18/2e-Se"  GOTOLSS aa 
GF="14#23 Jey GF rage lt: GoToOLZ Sa 

GE=" 14243418" GOTOLZ5SO0 

GF="1 #243444" 

Se=LENCG#):>Fe="" 

FORM=1TO3 
Ht=MIDS¢G#.M, 19: [FHF="-" THEN 2688 
IFH#="#" THENL=M: GOTO12 788 

WHEVAL CHE) 

FH=F E+ IDScc#. Sh. 1) NEXT 


T1 
Mm 


a 
VII ey me 


ke 
a 


BO h cD oo 


BhphpR BH oy OI) 
Ey Ty Tp et 


FORL=M+17038 
H#=MIDSCGS.L, 12: IFHF="#"THENL EP a8 
We=VAL CHE) 


FE=FS+MIDSCDE, VN, 19 EXT 
SH=SH-L : IFSH=GTHENS145 
GE=RIGHT#(GF, $2) :GOTOS1 45 
M$="01234" : RETURN 

M$="G1020904121314232434" RETURN 

3300 M$="912019814922024024123124134234": 

RETURN 
12408 M#="91220124013402341234" : RETURN 
13508 Mf="@1234" : RETURN 
1418 N$="567": RETURN 


mt ih 


HOI RIP IP BS hob po ho fh bo Ps Poh ho Pah po Pa Bo 


Ihe OUI maA MAO vo 


SB SOS eOhoOOMeE 


Ee STE LTE KS ETS OR a PER ES es ee ee 
oe 
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145 a0 Neo"SSeer" | RETURN. 
16688 AZK=HWe/DLH 
16628 FORJ=1TOAR2H 
16838 ALAC IO=INTCRNDC 19#1G9+1 
16644 IFA1A¢ J .>AZKTHEN16a3a 
16855 FOR IJ=e@TOJ-1 
16868 IFAC J2=ALA¢ J J>THENI683a 
16878 NEXTII,J 
16688 WE="""FORJ=17TOR24 ALAC IO=ALnC I eD LA 
Div+t 
1L6G98 WE=WE+M ITEC VE,ALE 63>. D1 NEXT 
16186 RETURN 
19866 DATAZAT. 34,163,17.188,8,.219,.43,237.2 
1.247.14,39,.52.24,.26,16,13 
2AGG8 DATALS4, 234. 234,.234,234,.162,1,138,15 
Poors 3.232, 224.6, 208.247,169,.8,141 
28618 DATAGS, 3. 162.4,138,.168,.136,.189,58,3, 
217,58. 3, 248, er. 192,48, 283,243.76 
Pea SS DATAIS1,3 »163, a, iS aig 208, 3,282,224,0,2 
mS, 16, 254,58, 3,232, 254, oo. 3.76. 188 
=AGSA DATA. 254. 56.3,199,59,3,.201,6,.246,22 
66. 166.3,224,4,208,232,239,.63,3,76 
Aad DATAIE66, 3, 162.4.76, 138,3, 162,.4,.232,1 
SS.5F.3,185,66.3, 157. 71.3,.224.5, 288 
26058 DATAZ42, 234. 234,168,255, 2060,162,.6,13 
.141,65,.3,18 29,72. 3,217,252,3,268.,2 
2anea DATAZ33,. 65.3, 232, 208. 224,5,208.239,1 
P3.65,3,2601,5.240,16,217,252,3. 208 
26878 DATALL,. 204,.64,3,208,215,169.1,.141,66 
63.96,173.63,3,2601,.120,208,177.169,2 
ZBB86 DATAI4S1.66.3,.96,.6,6,6,6,8,48 
38008 CeO EEN SE LOX: EDLSS (388 C2=CZ#40+17408 


aed #4 bag §. 


30005 POKES 4272. 18 a1: POKES 4273.63: POKES42° 7 
JA: POKES4 2°79. 248 

20018 POKECZ, 166: POKECS+D1. 11 

SAB28 GETEI#: IFVALCEI $>=@THENSEG4E 

pe C2P=LEF TEC CSF, ECI+ELS+RIGHTECCEF, 4-2 
‘PORECE+DT , VAL CET#3—1 

4035 | PORES427°6. 17: CO=VALCEI$9-1:FORT=17TO1 


30) EEE fy 3 3 


N 
oO 


WE: HEST > PORESd276, & 


SAO48 IFFEEKC283>=2THENIFFEEK C653 9=GTHEMIF 
aC<4THEH28 1 8a: REM RIGHT 
SBO58 IFPEEK S283 >=2THEMIFPEEK C653 9=1 THEMIF 


SCPATHENZAZOG > REM LEFT 

30052 IFEI#="H" THEHS8888 

TFPEEK (203) <>1 THENS8G28 

“CB =VALCC2$9-11111:POKECZ, 81: POKECZ 


=] iT 1 EY Ca) Ca 
ana 


PORES42 76. 33: FORI=1 T0488 : HEXT : POKES4 
A RETURN 

Snipaa PRINT: FRINT: PRINT" SRB BRREY COMBINAT 
TOM WAS: "= PRINT: PRINT 

SAB81 CE=PEEKCS14>#48+17421 

26882 FORT=1705:CO=VALCMIDS¢CAAF. 1.195 “POKE 
C2+¢I-1)¥6,81:POKECS+¢1-1)#64+01.C0 

36884 NEXNTI: RETURN 

SH1GG POKECZ. 81: POKECS+DI,CO:C2=C2+6 : CO=FE 
EE CC2+D1): 2C=20+1 

38118 POKECS. 166: POKECZ+D1. 11: GOTOs8828 
SB288 POKECZ. 31: POKECZ+D1,C0:C2=C2-6 : CO=PE 
EKCCE+DI): 2C=2C-1 

26218 POKECZ, 168:POKECS+DI.11:GOTOsaeg2a 


a 
A} 
:CO 
a 
i: 


i163 + O30a 


3H50Q CZ=PEEK(214) : DI=37898 :CZ=CZ#40+17408 
+123 
3B505 POKES4272. 181 :POKES4273.65:POKES4277 


8: POKES4#2 7S, 248: POKES4296.15 

38518 FORI=a8T04 

28528 POR ECE+1¥6,91 :POKECE+1#6+DI,UCI+19 
SAS38 POKES4276. 17: FORI=1TO18@:WEXTI: POKES 
4276.8 
SAS58 NEXTI > RETURN 
S18G8 RESTORE: SI=54272:POKESI +24. 15: POKESI 
+5, 16: FPOKESI+12. 14° POKESI+19. 14 
S1G16 POKESI+6, 175: POKESI+13, 175: POKESI+2@ 


Peake 


31828 FORH=1703: RESTORE: FORI=1TO3 
31838 READA:POKESI.A: READE: POKESI+1,.B:READ 
C POKESI+?,C: READD: POKESI+¢, 0 

31848 READE: POKESI+14,.E:READF:POKESI+15. a 
31056 POKESI+4,.17:POKESI+11,.33:POKESI+1& 


31060 FOR J=1 T0188: HESTI 
21 


Ta POKESI+4,.6:FPOKESI+11,.08:POKESI+19.4 
8@ HEXTI > NEXTH: RETURH 
T's! 


iy 
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Snake 


The snake in this game can be controlled via the 
keyboard or with a joystick. The snake has to 
gobble the hearts which are placed randomly on the 
screen. The score you will get for each heart is 
determined randomly also. If you reach a certain 
score you get a bonus round. 

The following events will stop the game : 


1. The snake bites itself 
2. The snake hits a wall 

3. The snake moves backward 
4. The time is over 


S PRINT "Cieleleteqelede eee tee We ee ee iG S N.AOK-E 
G AM 

Y FOR T=17T02@08 : NEXT 

A DIMNS¢4he% 

1 GOSUBS GAAS: To=1 


SE 


2 PRINT" CIMA RBLTOYSTICK CONMECTED ¢Y/No? 


13 GETA#: IFA¢=""THENLS 
14 IFA¢=""" THENJO=2 
SPRINT'S": DI=S4er2: POKESS290, 3: POKESS28 


16 SI=54272:FOKESI+24,15 

17 POKESI+5, @:POKESI+12,@:POKESI+19.0 

1& POKESI+6, 240: POKESI+13, 244: POKESI+20, 24 
; 


9 POKESI+1.3@:POKESI+8. 28 

A POKESI+19.33:FORI=17T04@:POKESI+15. 1#4 
SH POKELI44+1-1,162:POKE1144+1-14+DI.1 

4A POKE1994+1-1,142:FOKE1984+I-1+01.1 


23 


4 MEXT? PORESI+19. 4 

eG POKEST+19.33:FORI=17T025:POKESI+15., [#14 
PA POKER S4+¢1-19 848, 162:POKE1G24+¢1-15#48 
+DI, 1 

SE POKEL@63+¢1-12#48, 182: POKE1G63+¢ 1-1 #48 
+01, 1 

38 HEXT:PORESI+19.4 

BG PRINTTABCS) "SSCORE" 

.1@ PRINTTAEC2> "TOTAL" TABS 28> "GAMES" 

Sa PUSH: BR=G:Q=0:SP=6:Bo=24en 

66@ FPRIWT "SI" 

616 PRINT 

B11 PRINTTABCS3" 4 

612 PRINT" TT)" 

2A PRINTTARCSPLITABC 27 2SP-BR 

625 PRINT" TABCE? 2 SP-ER 

626 LL=14 

B38 PRINT "a" 

639 PRINT "TT" 

E4@ FORT=17T028 

eo FRIMT" wt 


666 HET: POKESI+19. 17°: POKESI+4.17 


678 FORT=@TO39: POEs Lt has 1#5:FPOKE1@24+1,83 
‘POKE 1@24+1+01.2:NEXT 

Eros POKESI+19.8:POKESI+4.@ 

ESe OW=35 

rea A=1524: k=-1 > 0=8:G=8: TI F="8e0888" 

SHAQ GOSUBI Baa 

S88 PRINTS": PRINT: PRINTTABCIOPUTABE 273 SP— 


EE 

1416 IFPEEK CA <>S3S2THENZaaee 

1826 PO REOt +4 yea 

1830 POKEA,. 87: POKEA+D1.6:G=G+1 : IFG>1STHEMP 
CKES¢G-18) 32 

1635 POKESI+4,4 

144@ IFG=1S7THEMPOKE1S 24, se 

1ES5@ OMIOGOTOL1AG, 1a55 

18355 JY=PEERCSé3269 : IF JY=64THEH1eea 
1666 IF J=1267THENS=-48: GOTO128a 
1865 ITF JY=123THENM=-1 >: GOTO1264 

187@ IF J=1257HEHK=46: GOTO126a 

1675 IF J=1197THEMS=1 : GOTO1 288 
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GETAt: IFAS=""THENLSaa 
IFAS="" THEHH=-48: GOTOLSHS 
IFA#=". "THEMN=-1:GOTO1288 
IFA#="A" THENS=48 : GOTO1 28a 
IFA¢=". "THENH=1 
H=0+1: IFQO=4G6THENSAaAR 
S¢Q3=A 
IFQ=LLTHEMPORESI+11.17:POKE1@24+0M, 32 
Os O— 1: LL= LL+18:POKESI+11,.8 
1488 ASA+%: IFTI>S86-2A- 1 BETHENT I $="880608 
‘aoe ES, 32: GOSUB1aeaa 
158@ GOTOLE16 
1ABBe SA=INTCS#RHDC 1 24+19#188 
{GAL S=INTCS4Q#RNDC 19941185 
{@ase IFPEEKC2Z><S3SeTHENiee1e 
1HA4Q PRIHT"S": PRINTTABRCS>" " PRIWT "Sd 
"CPRINTTABCS32A 
1AG5e PORESI+11,.33: POKES, 83:POKEZ+DI.2 
LAR6A PORESTI4+11., Bf: *RETURN 
SABA IFPEEKCA2<>S3THENSBeae 
2be5a POKES, 87: POKEZ*DT.6 
2A1ae FORII=17TO0Fa: POKESIt1& 
2A1AS LA=IHTC255*#RHDC 153: POKEZ. LA: FPOKEZ+I1 
»THTCRHD GC 1a #162 
2A1@Fr POKESI+15.,LA: Teipiget fap 129: NEXTII 
SA11G PRIHT"S!": POKEST+18 
SHL11iS PRIHTTABCSo" A PRYRTTREZ ON" 


FE TPR PI 


ee IT oy Pe 
TT MoM tm mS Mm 


20118 PRINT "SI" 
28128 PRINTTAB(9>"  —" 

SH128 PRINTTABC9>PU+ZA 

20148 PUSPLZA 

20145 POKES. 87: POKEZ+D1.& 

28158 IFPUSBOTHENSP=SF+2 : BO=PLU+1508 : GOSUBG 
3808 

20200 BE=BE+1 

20258 IFEB=SFTHENSaaaG 

20255" FOR1=1 T0280: GETAS : NEXT 

28368 GOTOEAR 

23808 PRINTPEEK (56228) : GOTOZ3000 

SAGE POKESI+18. 17: FORI=88TO1STEP-1 : POKESI 
+15, 1 NENT: POKESI+1&,6 


25 


@ PRINT" Si": PRINTTABCS)" "= PRINTTA 


@ PRINT"S!": PRINTTABCS)" " 
30020 PRINTTABCS>PU-ZA 

30840 PLUSPU-ZA: BB=BE+1 

30050 IFBE=SPTHEN4aRAR 

S0068 FORI=1TO2AG: GETAS: NEXT 

S887 GOTOSAG 

46000 TFPUSHEC1 )ORPLUSHE¢2 ORPUSHE C3) THENGO 
SURES LA 

40810 IFPUDHE C1) THEMHE(2>=HEC2> : HES (3) =HEF 
C25 :HEC2ISHEC1) HESC29=HEFC 1) 

40020 TFPUSHEC 1) THEMPRINT 2)": PRINT" Merete 
EMTER YOUR MAME” 

40825 IFPUSHEC 1) THENHE(12=PLU: IMPUTHES¢ 19:6 
nToO41 aan 

4G820 TFPUDHE (2) THENHE (29=HE (2 :HE# (2) =HES 
C23:° PRINTS! PRINT" AllOWMEHTER MAME” 
4Q846 IFPUDHEC2) THENHE(22=PU: IMPUTHES C29 °G 
OTo41 008 

4Q050 [FPULHECS9 THEMPRINT "22" : PR IMT" XteeDe Omit 
ENTER NAME" :HE¢S0=PU: IMFUTHES<¢ 2) 

41000 PRINTS" PRINT: PRINT: PRINT 

41018 PRINTTABCS0HES¢ 1 TABC2S59HEC1D 

41626 PRINT: PRINTTABS SHES (29 TABCOS DHE C2) 
41030 PRINT: PRINTTAECSHE#¢ 2) TAB C25 HE C2) 
41840 PRINT: PRINT: PRINT 

41950 PRINT"AGAIN 7  ¢yMo" 

41855 FORI=17010: GETAS: NEXT 

41060 GETAS: IFAS=""THENd ioe 

41070 IFAS="9"THENIS 

41090 IFAS<2"N"THEN41 ase 

41090 POKES 9466.0: POKESS467,4 

41100 END 

SAGA POKES 945a, 238 

SAG1G POKES S468, 14 

BAZ PRINT "CIM YOU! KNOM THE RULES ? 

5 PRINT MH)? 

@ FORT=1T018:GETAS: NEXT 

A GETAS: IFAt=""THENSao4o 
a 
a 


fat 
= 
om 15) 
= 


ahd 
mm 
= MH Wyo 
Lic’ 


IFA¢<2"N" THENS@ S88 
PRINT" SHOU HAVE TO HUNT FOR YOUR VIC 


N 
(o>) 


SHG6S PRIMT'"WITH A SHAKE. THE SHAKE IS COM 
TROLLED 

Aare FRINT"WITH < FOR LEFT. = FOR RIGHT, 
APS PRIHT"t FOR UP. AWD A FOR DOW, 
SAAS FRIKT' THE VICTIM IS SHOWN AS A HEART 


96 PRIHT"IF YOU HIT THE HEART. OL! GET 


mt 0 


= PRINT" SCORE DISPLAYED IM THE UFPER R 


mimi 


ee 


@ PRINT"HAND CORHER OF THE SCREEN, 
AS PRIMT"IF YOU HIT THE WALL OR THE BAC 


Im) 


ey ee | 


A PRIHT"THE SHAKE. THEM THIS HUMBER IS 


S8115 FRIHT"DEDUCTED FROM YOUR SCORE. THE 
TIME 

S8126 PRIMT"AVAILABLE FER ROUND IS DISPLAY 
ED 

SA125 PRINT" THE HEARTS IM THE UPPER LINE. 

~8126 PRINT"IF THIS LINE IS DOWH TO ZERO. 

THE 

SH135 PRIHT"NUMBER OF HEARTS IS DEDUCTED F 

ROM OUR 

“B14@ PRINT"SCORE. IF YOU REACH A SCORE OF 
MORE 

S814 PRINT" THAW 2468 DURIWG THE SIs ROUND 

= AYAI- 

SG15@ PRIMT"LABEL. THEN YOU GET THO MORE F 


SG1SS PRINT "FOR EACH ADDITIONAL SCORE OF 1 


ats) 

SA168 PRINT"YOU GET AMOTHER THO BOWUS ROWIM 
Is. 

SA1P@ PRINT" SNPRESS ANY KEY WHEN REAL 
[A186 FOR IT=17T018: GETAF: HET 

[8198 GETAt: IFAS=""THENSG1 98 

28288 PORES S463.12 

SH216 RETURH 

BSBG8 FORT=1703 

BSB18 FORI=17TO3 

ESBSH REATAL, AS. AS. 21 

ESa4ea POREST+1.A1:FORESI+&8.A2:PORESI+15.A3 
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63055 


63868 
ped Sa 
BoAPS 
63888 
63898 
63188 
63208 
2A 
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POKESI+4,17:POKESI+11,17:POKESI+1¢. 1 
PRINT" SeeR PRR PR ORDER ERE OPP eR eR PR! 


BOMUS " 
FORK=17T02 1: HEXTEK 
POKES 1+4,.@:POKESI+11,.8:POKESI+19.0 
PORT AAT" See Be Be Be We ee es ee ee 


HEST I: RESTORE > HEXTI 
PORESI+1,.38:POKESI+S, 26 

RETUFH 

DATAS4. 17.8. 78, 43,.21,146,78,52,26.13, 


Super Sprite 
Editor 


This is not just another sprite editor. This super 
sprite editor offers you the following : 


1. Normal and multicolor sprites 

2. Use of joystick for definition of sprite 

3. Definitions of colors 

4. Change sprite and background colors at any 
time 

5. Grid behind sprite possible (on/off) 

6. The actual sprite can be seen at the same 
time as the enlarged model 

7. Enlarge sprite in X- and/or Y-direction 

8. Save and load sprites from disk or 
cassette 

9. Display of the sprite data at any time 

10. Output of sprite and data to VIC 1525 
printer 

11. Grid and multicolors (as shades) can be 
printed on the printer 

12. Sprite can be mirrored in all directions. 


To draw a sprite move the cursor to the desired 
location and press the red fire button until you 
got the desired color. To erase just write in the 
background color. The actual sprite is shown in 
the bottom right hand corner. The selected colors 
are shown in the upper right hand corner. The 
colors may be changed at any time by pressing the 
function keys to the right of the keyboard. The 
default colors are : 


background = gray 2 
screen color = black 
MC 1 = black 
MC 2 = black 
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If you change the background color, only the 
background of the actual sprite and the definition 
sprite will change, while the rest of the screen 
does not change, so that the text remains readable. 
You may turn on a grid behind the definition 
sprite by pressing 'G'. To remove the grid press 
"SHIFT-G'. 

To enlarge the actual sprite in direction X or Y 
press '‘'X' or 'Y¥'. To get back to normal size press 
"SHIFT-X' or 'SHIFT-Y'. 

Once you have defined a sprite you can save it on 
disk or cassette. The colors and the other 
settings will be saved too, so when you later load 
bi ae you will be in the same modes as when you 
saved it. fey 

To get the data defining your present sprite, 
press 'D'. The data will overwrite the menu. To 
get back to the menu, press 'SHIFT-D'. 


You may print the sprite on a printer hooked up to 
your computer. If the grid is turned on, it will 
also be printed. If you are in multicolor mode, 
the different colors will be printed as different 
shades. 


The sprite may be mirrored on the X-axis, the Y- 
axis, or on the center point. 
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1 REMEEEEEEEEEESEEES SEES EEEE KEE) COMP SPRI 
TEED TORKEEEEREEEREEE FERRE HE EEE EEE HEE 
= REMERREEREEEEAEREEEREEEREREREERT RL HETG 
ERHCSER Seah Ahearn t a ce 
3 POKESE, are age 147: YI=53248 : DIMACE4) : 
DIMPAS< 159: R2=25 
POKES3S231.15: eeRnEe Ty PRIMT" SPR Ra PRR RE 
POR lahore Heo ott toes sere 
PRINT" SRB RRRRRPRPBIEY F&F. HEIGEHMOSER"” 
COCA HF- COC 1 S98 COC S59 =e CNC a y=S"  FHECe =" 
BACKGROUND" : FAFC12="COLOR 1" 
16 FAFC2 2="COLOR 2": FAS¢S>="COLOR 3": MC= 
TAH3: PRINT: PRINT : GOSUBSE1 
ni PRINT: PRINT" SHIT AWY KEY '@al": GOSUBISG 
Ae 

= GETA#: IFA#=""THEN12 
13 POKEVI421,.8:PRINT'S": [HPUT"MULTICOLORNG 
TE (SeN> "SMCS 
1S IFMCE<CS"S "“THEN2S 
28 MC=2:CM=1:POKEVI+28,.4:R2=-166:GOTOra 
20 MC=1:CM=2:POKEVI+2es.6 

A FORT=3997 7 TO4e7 rr STersa@ : FORJ=6Td23 
5 POKEI+],8:HEXTI. 1 


if i TW -J 


SA TASS? : PRINT" 2": POKESS28Q. 14: POKESS281, 1 
ag Dl =S4272 :VxHB2: VY=SE:PO=1G6S HY=38912 °F 
AR2 

LQG COCA y=12:0001 =: 000 29=0: COCS9=8: ZEC RD) 
=258 > 2E019=160:2E(29=168:2E639=168 

491 FORT=19127T02823'° POKEI+D1. 15:POKEI. 168 
MEXT 


493 FORIT=S3270894 :POKEI,@:HEXT 
454 POKES9425, 250: SyYs39dse:POKEVI+e1,5 
$56 POKES9425.12:POKE39426, 8: FOKESS427.6 
CKESS42S,. 8: POKES9S429,. 12:S7539441 
SO@ FOKESO46. 11: POKEZAd2,13:POKEVI+39.8:F0 
KEVI, 32: POKEVI+1, 58 
SAS POKEVI+23. 4: POKEVI+29. 4 
Sar POKEWVI+37. 4: POKEVI+S9. 8: POKEVI+491,@ 
2 FOKEVI4+4.4:° POKEVI+5, 264: POKEVI+16.4 
=a POKELG@22, 103: POKELA324+01,11:POKE1644. 1 
OPOKREIG464+01,11 


:P 
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S52 FOKELS44. 111° P0KE1S44+01.@:POREL664. 11 
1: PORE1G664+01.8 

254 POKELS12. 163: POKE1912+01.11:POKE1924, 1 
M3: PORELISE+01. 11 

6 PORELS69.111:POKE1S694+01.4:FPOKE1ES9. 11 
1: POKE1I689+01,8: GOSUBSéa: GOTOsaE 

S6Q PRIMT "3" 

S61 PRINTTABC TA)" oa 1 EFAS CCOCe do: TFMCS2 


Ps | an Pes 
S62 PRINTTAERCTA}" ": GOTOSeE4 
PRINTTARCTA)" SF See FASCCOC 13» 
PRIHTTABC TA)" SF Same "FASC COCs) 
IFMNC=2THEHSéS 
FRINTTABS TAD" ": GOTOS FE 
PRIHTTAEC TAD" SOF Pee FAS COO 355 
PRINTTABS TA?" Sai TT" 
PRINTTAECTA)" S3H@@El) SCREEH" 
PRINTTAEC TA)" S8CBM@ALCULAT ING" 
PRIMTTAES TA} " Sa S-LARGER" 
PRINTTABC TA)" Sa¥r'@f}-LARGER" 
PRIHTTABCTA" Saa0@™AT A" 
PRINTTAEC TAD" SELSOAD SPRITE" 
FRINTTABCTA)” ASME SPRITE" 
PRINTTAECTA2" SP @eR INT SPRITE" 
PRINTTARCTA}" SRE I REOR" 
» PRIMNTTABS TAD" NC= See ee Ps TPS 2 
NPOKES S926. 5: GOTOS98 
POKESS338,5 
RETURN 
GETWAS : [FMAS<>"" THENGOSUBSG GG: PRINT" 


od 2) dT TTT Tt 


J) fe PIO eh Oo A OS 


MOA CA CAAA COCA CA CAA Cn 


mim Tmo mom wo 
OO omca 


BBS JO=HOTPEEK CS6328 9 ANTS 1 
B18 Ydt=-<¢ OAND 2: S2=¢ JOANDS) "2: S1=—¢ JORND4 


‘4: S2=¢ TOAHDS)/S: FE=¢ JORHD16) 16 
MI=SeCKL+N2 a SL=BeC 142 
IFABS (CH 12 +ABS C41 Oo =BTHEMESS 
Fi=8:Fe=8 

Whee eile Dye 

IFYM C22 dANDY S24 THEN SS 


mamma H- a 
6302 3 03.9 eee 
MOOMh AM Boe 


632 VX=VX-MC#NI 

635 LFVY'C226ANDYYSSETHENESE 
BaF W=SVGI—41 

648 POKEVI. VS: POKEVI+1 4" 


TTT 
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B50 POSLSS+¢VN-B23/S+4046 CYY-S89/8) 
655 IF(PEEK¢PO+DI 9AND1S)=@THENPOKEVI+29, 1: 
GoTOeEE 

656 POKEYI+29. 6 

660 IFFECD1THENE?O 


FORI=@8TOMC-1:POKEFO+I, ECFA): POKEFO+D 
,COCFAD ‘POKEPO+H' "+1. FA: HEAT 

7 cbs (VA~ s23°S: BISZE-IMT CES #8: BSc yy 
fH. 3 PS+INTCZE“S) 

POKES 39568,FA:POKES9S63. BY POKESIS7a, BI 
I 


4 


+) OT, Ty + Ty 
et 0, oO oT es oT a o Lacy 
mo —< — 


ima 


A95S8 


As 


5 FIO<> LE THEMES 

GPS Fl=1: IFF2=1THEMNFA=FA+CM:F1i=@:F2=0: 1IFFA 
= THEMFA=@ 

E88 IF IO=@THENIFF 1=1THEHF2=1 

rAaG GOTO6RE 

2668 SYSSP PAG: TFPEEKC S34 18>=8THENSaas 

2eAG2 POKESS469, MC-1:Sy'S29441 -GOSUBRS — ‘RET 
LIF 

2685 PRINT" @": TFHRE<> "Mm" THENSASe 

2618 COChs=COCa+1: IFCOCRD= L6THEHCOC A 5=8 
e626 POKESS425. COCH) : POKES9429, COCaS - SYS39 


441°PRINT"S" > PRIMNTTARS SQ5FASCCOCED » 

2B25 RETURM . 

238 IFWA$C> "8" THEMHZE6e 

2848 COCL =COCi +1: IFCOC1>=16THEHCOC 1 2=8 
ASB PORESS426,00¢61)9: SS39441:POKEVI+37,C0 


} 
ASS PRINT" sid": PRIHTTABRS SAF ASC COC19 > >: RETU 


Pg 
wes 


IFWAS<2 "Il" THEN 2090 
OCB =COCZ 41: IFCO(29=16THENCO(2)=0 
POKES9427,COC29:SYS39441:FOKEVI+41,C0 


Tm 


Pam aR A em fe 


PRIHT "siete" -PRIMNTTABC SEF ASC COGS) 9 RET 


TH i Pa a a 
cn 


tw I ee OT 


IFWAS<> "Bl" THEH2 1 28 
COCs 2=COCS9+1 > IFCOCSI=16THENCOCS3 


1=8 
POKES9428, COC3) : SYS39441 : POKEVI+3¢, 


co 


~ Fe Pa Pea ef 
Lan ace 


fete pe 


2115 PRINT" Steele" :PRIMTTARCSA2FASCCOCS)): RE 
2128 IFWAS<>"G"THEN21 44 


2138 POKES9425, 250: FORI=394267029428 : POKEI 
» 160: NEXT: SY539430 
2132 POKESSS22,5:2E¢a=2508 
21235 FORISGT03: POKES9425+1, COC 1) :MEXT: RETU 
FM | 
2140 IFWAS<>"| "THEN2168 
2150 FORT=294257039429:POKEL. 160:NEXT: S433 
9430 
2152 POKESS523,2:2E(@)=160 
2155 FORI=GT03:POKESS425+1 COC] >: NEXT: RET 
RN 
2160 IFMAS<>"N" THEN22 18 
2178 PRINT" SKMNEH SCREEN Am" 
2180 GETAS: IFAS=""THENZ120 
2190 IFAS="""THENPRINT"S Stik m 

": GOATOM2 
2195 PRINTS on | "RETURN 
2218 IFWAS="8" THEMPOKEYI+29. 4 POKESS643, 5 
RETURH 
2228 [FMAS="#"THENPOKEY I +29, 
RETURH 
2230 IFWAS="4'"THEMPOREVI+22. 4: POKESS6S2. 5: 
RETURN 
2240 IFMAS=" I" THEMPOKEVI+22, 8° POKESSES2. 2: 
RETURN 
2258 IFWAS="D"THENGOSLIBSSO8 : RETURN 
2255 IFWAS<>"~"THENZ268 
2256 GOSLIBSS00 : POKEVI+23, 0: POKEVI+29,0: 605 
UBS6 
2257 POKEVI+21,5:FORI=1813T0201 35 TEP 4a: FOR 
J=O706: POKET +I, 160:NENTI) I 
2258 GOSUBS150:RETURH 
2260 IFWASC>"L" THENZS5a 
2265 PRINT" SAMLOAD SPRITE 78 
2270 GETAS: IFAS=""THENZ274 
2271 IFAS "Y" THEN2210 
SOP2 POKEVI+21,1:POKEYI+23,0:POKEVI+29, 0:1 
HPUT" SHAME OF SPRITE: "iNé 
2273 INPUT" SCASSETTECDISKETTE (CD) "i SP# 
2274 PRINT" AlMeedeleleetedetetetedeeteetete  TFSPE="C"T - 
HENOPEN1. 1..8.N¢:GOTO2227 
cere IFSPS="D"THENOPENI .¢.2.Md+". 8, R" GOTO 


eee of ie 


fcr 


(POR ESS643, 2: 


eere GOTOZSF3 
558 or 6 REM 

2288 POKESS?’63,5 
II 


2290 INPLIT#HL.» MC: FORS=17063: INPUT#1. ACH? : NE 
eT: IFSP#="D" THEN2 2388 


2295 PRINT" -T] ] | "OPR 
INT" : 
2300 CLOSE1 :GOSUBS980 : SYS39441 : GOSUBZ150:6 
CISUBSEO: POKESS7 63, 2:FPOKESSS23, 2 
om ] 


2318 PRINT" & 


2328 RETURM 
2250 IFWAS<>"S"THENZSO0 
2360 PRINT" SASSAVE SPRITE 7m" 


@ GETA#: IFAS=""THENZ374 

@ IFA&<>"Y"THENS4 748 

SS INPUT" SM§NAME CF SPRITE: "i Nt 
G@ INPUT"SICASSETTE-DISKETTE (Ce “Do "SSPE 
2 POKES IBAS» 


SEPP PS Ps Ph 
30300 03 69 3 


THENOPEN1, 1. 1.N¢:GoTOZd4a 

2400 IFSP#="D"THENOPEN1. &.2,.N$+",S,W": GOTO 
2440 

2418 GOTO2298 

244@ PRINTH#1.MC:FORX=17063: PRIHT#1,PEEKCS3 
1+%) : NEXT 

2458 CLOSE1: IFSP#="D"THEN2Z474 

2460 PRINT" | cc 
PRINT" % " 

2470 PRINT" S | 


2486 POKESSS@3, 2: RETURN 

2o88 Nils Set bie sp Anis 

2585 POKESSS43. 5:48: FORIT=1 7063: ACT o=PEEK¢ 

S31+1 9° NEXT 

267 IFZECG>=25G@THENGI=1&86:GOTOZS14 

2588 GI=32 

2ol@ OPEM4. 4 

Sole KO#¢12=CHREC145>+" 

sa | +CHRECS) 

2513 KO#¢2S9=CHEFC159+CHREC1 459+" 
"+CHRE CLP I+CHREC 1S 
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TATU RE 


2514 PRINT#4,.K0¢¢1> 
2515 FORI=399777TO4e7r 7STEPSE: (PRE=CHREC LED 
+CHREC 1459+" |"+CHREC 159: 2AF="" 
2517 FORJ=aTo23 
2520 IFPEEK¢1+])=QTHENPRS=PRE+CHRE¢ 146 94+CH 
R#€GI 3: GOTO2SS5 
2538 IFPEEK« 1+) =2THENPRS= PRE+CHRE ¢ 129+CHR 
$(329 (GOT0ZS35 
2531 1 IFPEEK ¢ 1+.79=1THEHPRE=FPRE+CHREC 1669 °60 

ne535 
esse IFPEEK CI+J9=3THEMPRE=PRE+ CHES 61915 

sod MEAT I 
537 2AF= ZAS+CHRE & 146% 
2548 FORK=17T03: ZA$=ZAF+CHRE & 16) +RIGHT#¢S oi k 
FCKRA+4B) , 294STRECACKHKD 2: HEATK : 8= 

S08 PRE= PREHCHREC14694CHREC14594" "CHE. 
1594+2AS+CHR ECE) | PRINT#4.FPR# > HEXTI 
S568 PRINT#4,.K0¢¢29:°(PRINT#4.CHEEC 159 
25°68 PRINT#4,.CHRE¢1S5" "CHRE¢Ci4deo" =SCR" 
25f2 PRINT#4.CHRE¢1669" =SMC #8" 
S574 PRINT#4,.CHES¢1919" =SMC #1" 
2576 CLOSE4 
2586 FPOKESSS43, 2:RETURN 
S668 IFWAS<C>"#" THENZS Poe 
2605 POKESSS33. 5 
2616 INPUT" SK-/Y-AXISCPOINTS TMM. CHAP" 
SPS: PORESS4a9, Nc ee! 
2620 IFSP#="«*"THEMST S35 


Ha: GOTOZESE 
2625 IFSP$="P"THENSYS3S500 : SY 


TSS BE: GOTOSS 


2638 IFSP$="P"THEMSY SSS 7O0 : GOTOZESa 
2648 GOTO 16 
2658 SYS39441 > GOSUBRZ1 Se 
2668 PRINT" S ® | | 
": POKESSS33, 2: POKESS603, 2: RETURH 

2766 RETURH 

3588 REM DATA 

3518 POKESS P23. 5: PORESS6@S, 5: POREVI+t21,1°6 
CISUBSSG8 

3515°FORT=17T063:°AC1s=FPEERCS31+1 9° MEAT 

3526 PRIHT" SS": FOR T=67T026: FR INT 

3536 FORJ=6T02: PRINT" "> TABS 264+ J#4 Ae T#S4+ J 
+19 :°NESTI 
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S548 HESTI: POKESS #23. 2: POKESS6@3. 2: RETURN 
3388 REM CLEAR MENU 
S618 PRINTS!" :FORT=17T023:PRIMTTARC2Z6 >" 
"< HERT > RETURM 
S86 REM DISPLAY SPRITE LOADED 
SO@5 POKESS66@3,5:FORI=17T063:POKRESS1+1,ACT2 
> NEXT 
SHG? POKEVI, 32: POKEVI+1, 59: Y4=32: Y'=5o: PO= 


1865: FA=2 
sa1@ ‘olga 2THENCM=1 : POKEYI+25. 4: GO0TOS580 
3615 CM=2:FPOKEVI+29, 8: POKESS93@, 5: POKESS92 


- 


ml on iT) 


2A 4=6: FORIS=3997 7 T0487 77 STEPSG : FORI=7 TOS 
TERS: M=N+1 : FORK=7TOGSTER—1 
3838 BI=( CACKOANDC2 TKO /2TK) /POKEI+I-K, BI* 
SACK ISACK IO -BI#S TE NEXTK, J. 1 
S040 GOTOSE86 
S288 POKESS93@,2:POKESS926. 5 
S505 4G: FORT=39977 T0407 7° STEPSG : FORI= ¥TO3 
are te ‘H=K+1° FORK=-TORSTEP-2 
218 BI=CACKMIANDCStK+24CK- 129 PCS TOK-199°P 

OKEI+I- -K. BI: POKEI+J-K+1,B1 
aoe ACHISACKI-BI#2TCK-1) 
soo MEXTK. J.T 
S688 POKEVI+41,COc2):POKEVI4+37,.C0¢19:POKEY 
1+38.0O0¢3> :POKEVI+21.5 
S618 FPOKESI6GS. 2: RETURN 
EBG@ REM CALCULATE DATA 
6618 IFMC=2THEM6 Sea 
6A28 BI=8: s=6:FORT=39977 T0487 7 PSTEPSG : FOR 
=FTOSESTEPS : 8=4+1 °F ORK=?TOBSTEP-1 

B38 BI=BI+¢PEERCI+J-Ko 29802 Th: MESTE 
BG4@ ACKO=BI: BI=8:HEXTI. 1: RETURH 

6508 BI=G:4=6:FORT=39977TOd4ar rr STEP4a : FOR 
=F TOSASTEPRS : ¥=s+1 / FORK="TORSTEF-2 
6518 BI=BI+PEEKRC I +J-Ko#cetok-19) ) NESTE 


a 
28 
AS 


A 


nM 


Ae 


6528 ACKO=BI:BI=8:MEXTI. 1: RETURH 
2886 DATABLACK » WHITE RED 
H » PURPLE » GREEM » "BLUE 3 


9818 DATAYELLOW , ORANGE » BROWN 
FET GRAY 1 GRAY 2 “LT GREEM 
3826 DATALT BLUE » "GRAY 3 

18@06 DATAIS5S, @.4,231.8,.8,.126,0,.6.68 
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8,6,4,126.8,0,231,6,.68,195.6.8 

11488 REM SUBROUTINE BRITA COLOR 

1161@ DATA1G9,4,133.146.169.41,.133,139.76, 
25,154,169, 216,133.148, tiple 

11628 DATA41.133.139,169,.156.133.142,169.4 
1:133.141.162,4, 1668 

11636 DATAG.161,141,178,189.1.154.162.8,12 
9,139, 266, 238,139,238 
11646 DATAI41,2693.4,236.148.236,.142,192.24 


» 288,231,168, 8,24,165 
11@56@ DATAI33, 165,16, 133,139,1233.141.144,.4 
»238. 146,236, 142,.165,142,281,.159 

11868 DATAZHS, 288, 165,.141,201.113,.208, 282, 

234 

11166 DATAI62.6,166.6,169,.21,133.139,169.2 
19,133, 148, 234,234,234 

11118 DATASS34, 234, 234,234,234, 234,234,234, 

234,173.55, 154, 129,133. 268, 238, 139 

11126 DATAIS32.7.208.244,168.68.24,165,139.1 

O5,33,.133.139, i4d4, 2o3, 36 

11268 DATAL24 234, 2d, 234 

11285 DATAS.6.6,.8,128,64,32.16,9.4.2,.1,.24, 
174,.145.154,.172,.146,154 

11218 DATA169.6,141,147,154.173.25, 208,248 
sPsesk, 147,154 

licee DATAS6. 144,154. 208,238.147.154.118.1 

44,154,155. 145,154 

11236 DATAS4. 118, 144.154,176.8.,73,255.61.6 

4,353.76, 266, 154 

11246 DATASS, 64.3,.157,64,3, 266.147.154.248 
»4,136,7 76,196, 194,96 

11368 REN MIRROR & 

11214 DATAI69,46,133,139,169, 1! 

69, 72.133, 141.169.159.133, 142. 


a6 
162 
11328 DATAIG, 166.24.177.139.141.11, 158,177 
6141.195,139,173.11.158.145,141.136 
ig 334, DATAZHS,. 239,165,133, a4. 183,.48,133.13 


9,144,2, 238, 140, 165, 141, 26. 233. 48 

1346 DATAL 33. 141,176.2,198: 142, 168.24, 282 
/2AR, 212. 1&9, 1634133 BEER Sh IM agit pen 
11350 DATALS 142. 169, 123.133. 
Sriesder iso; tai ieee er 141.145 


39 


11368 DATAL39, nah 158,145.141,.136. 288.2 


39,165,139, 24,185,3,133.139.165 
11276 DATAI41. 56. 233,23) 133.141.168,3,.282,2 


11416 DATAI69.48,133,139.169.156.133,148.1 
33,142.169,53,1393.141.169,21.141 

1142@ DATAIS.156.1668.12. 162,64, 177.139.1411, 
11,158,.161,.141,.145,139.173.11,156 

11436 DATAL29,141., 136,240, 14,24, 165, 141,16 
Sl, 133.141.144,2 236, 142.76,67,151 

1144@ DATA1EG, 12 y 206 15.158,246,29,165.,139 
»24,105.48,133,139, 144,2,238, 148 ’ 

11450 DATAIES. 146, 133,142, 165 12139.24,185,1 

»133.141.144,.2,236,142,.76,67,151 

11460 DATA169.63,.133.139,.169.3,.133,148,169 
,21,141,15,150, 162) 8, 160,3,177 

1147@ DATAI39.141.16,158,169,6,141,17.158. 

24,173,9,156.208,63,.173,.16, 154, 196 

11486 DATA141,.16,150.173.17,.156.42.141.17, 
158,26 2,288,239), 162: wif Ss 17,156 

11498 DATALIS3.16.156, 136, 20S,212,166.3.173 
611,156.145,.139,136,17 

11500 DATAL2; 150, 145, 139,136,.173.12, 150,14 

5. 139,206.15,158,288.1,96,165,132 

11516 DATAS4,.165,3.133,139,.76.147.151,173, 
16,158, 106,106,141, 16.156,173,.17 

11526 DATA1S@.42,.141,17.158.173,16,156.18, 
173.17.15@. 42.141,.17.158, 282 

11538 DATASH2]. 263, 226.76,184,151 

11686 REM MOVEMENT 

11618 DATA169.1,.141,.18.158, 165, 263.281,.7:2 

46,18.281.2.2480,.14,169,.8,141.18 

11626 DATAIS@, 96,173.141.2,246,.14,76,216.1 

AF. 1F 3141+ 21240, 3176s 63,148, r6 

11638 DATAZSS, 148,169,32,133, 139, 169,.72,13 

3,141.169.159,.133,146,.133.142,162. 28 

11648 DATAIES.24,177,.139.145.141,.136, 288.2 

49,165.144,153,142,165,.139.123 

11658 DATAL41, 56. 233, 4@,133,139,.176.2,199, 
144, 168 sad, 2A2. 203,227,162, 24,1693 

11668 DATA, 157.448, 156,202. 208, 254,169,128 
133, 139,169,123, 133,.141.169,3 
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238,148,168, 24,; 202,208, 227,162, 
11Fr2e Jaa ra B., 157, 72,159. 282. 


116° DATALS3.148,133,142,168.3, 162,28. 17" 
1139, 145.141, 136, 208, 249,165,139 
11680 RATHI 3. 141,356.23 3,3,133,139, 16.3.2 
Be, 263,235, 169,8,141,64,3,.141,.65 
116948 DATAS 6141,66,3,96,169.88,133.199.169 
144,133,141, 169, 156, 133, 140,133,142 
11700 TATALGS. 28, 166,24.177.139.145,141,.13 
6, 203.249, 165,148.133,142,165.139 
11718 DATAIS3. 141,.24,.185,48,133,139,144.2 
eset 
20 


bd a R= Og 


.66,133,129, 169,63.133,141, 169, 3 
11738 DATA 4a, 133.142,.168.3 VGR: 30, 1Frs133 
+145, 141,136, 283.249,165 1233, 133 
ie DATAI 41.24.1835, 35.133,139.168.3. 262.2 
BS,2395.169, 8,141. 124. 3,141.125.3 


117 Se a he 41, 12 564 31 SB 169.42 1S. ’ 


41,133,141, 169. 156,133,140, 138 
11768 DATAI42. 168.0, 162.21. 169.1.141.15.15 
4.173.9,150, 24,5,169,2.141,15,150 


1177G DATAI??. 139,145,141, 206, 192.23,203,2 
$7.136,169,.68,145, 1399, 166.8, 266,15 
11788 DATAISG, 203,235, 1 165,139.24, 105.48,13 
3:139.144.2 eos 146,.165,.141.24, 185 


11790 DATASG, 33.141, 144.2, 238, 142,262,288 
2195,169,63.133, 134, 169,3,.133 

11868 DATAL4» 169.21. 141.15,.150.162.1.173, 
9,156.248.2,.162.2,168.3,24, 177,139 

11818 ‘DATAIA, 145,139, 136, RR ide A a 13 
9,196,.177.139.42,145,139. 282, 283.233 

11826 DATALSS, 135): a4. 185.3. 13 3.139. 286,15, 
156,209, 212,96,169, 40,133,133, 169 

11836 DATA4d1.133.141.169, 156.133.140.133) 1 


42,166,23,162.21,163.1.141.15,158 

11946 DATAI?S. 9.158,.248.5,169.2,141.15. 158 
177,139,145, 141, 136,288, 249,200 

11896 DATALGS. 4,145, 139. 166.23, 286,15.154, 
208. 227,165.139.24,105,.48,133.139 

11866 DATAI44,2.2360,148,165.141,24.185.48, 


133,141,.144.2,238,.142.282, 208, 13? 
11978 DATAL69.63.133.139.169.3.133.148.169 
221,191.15, 158, 162.1, 173.9, 150 eda 
11898 DATAZ. 162.2. 168, 1,24, 177.139. 74.145, 


Sfp onl poy ba igteb gid a. 139. 288 
11898 DATA? ?. 139.186.145.159. 262,.289,233, 
165,135.24, 105, 3,133,139. 286.15 


119668 DATAIS&. 285.212. 96 

15804 FORI=GT015:READFASCI> :NENT 

15018 B=8:FORI="e4Tor2?:READA: E=B+A:POKEL, 
FAs HEMT 

15615 IFE<>1224THENFRINT" TERROR LINE 19@@8 
": STOP 

15628 B=8: FORI=33438T033642 :READA: B=E+A: FO 
EET.A:NERT 

15625 IFBC>esS531THEMPRIHT"CERROR LIME 1188 
H-11248" > STOP 

15638 B=8: FORI=38586TO33619 :READA: B=B+A: PO 
RET.A: HEMT 

15848 IFB<>154S7THEMPRINT" TERROR LINE 1131 
H-11370": STOP 

15656 B=6:FORI=387G8T039919:>READA: B=B+A: PO 
EEIT.A: MET 

1S866 IFBCD254467THEMPRINT"SERROR LINE 1141 
H-11538": STOP 

12186 Beet FORT=H=3 77 @aTORS822eF :READIA: B=B+A: PO 


a IFEC SB6423THEMPRINT" TERROR LINE 1161 


900" : STOP 
8 RETURN 
base 
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Landing 
Simulator 


In this game the landing (final approach) of a 
small plane is simulated. You have a choice of 
realtime or delayed time operation. 
The following meters are available : 


1. Altitude 

2. Speed 

3. Artificial horizon 

4. Calculated touch down point 
5. Landing flap position 


After landing or crashing you will get a ' diagram 
of your landing curve. 


SI=54272 : POKESI, 39: POKESI+1,52:POKESI+5 
1 POKES +6, 240: POKESI+24, 15 

| DIMFR¢41) Dl=54272:POKESS281. 15 
GOTQL318 

1 PRINT "CT" 

1 PRINT" ——," 
PRINT" 1a 91cm)" 
PRINT" C 
PRINT" ‘———' os 


180 PEINT® a5 | 

1S 

19@ PRINT" (MS @ | 
128] 

2O8 PRINT" | | | 


A PRINT" |aH4 ml | 
Gt. | 

mel PRINT" | | | 
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230 PRINT" |3#2 mI 
20 | 
248 PRINT" | 
| 
259 PRINT'| 338 om! —— | 
60 | 
260 PRINT" 
276 PRINT" 
40 
280 PRINT" 
SO PRINT" 1ah4 om ba 
26 | | 
30 PRINT" | | | | 
R14 PRINT" 13-6 ml 
a 
326 PRINT" ———’ -- 


"2 | | 


330 PRINT" , 
246 PRINT" | 
250 PRINT" | 6G 70 SA 9A 190 118 120 K 


MH | 
36 PRINT" * 


S78 RETURH 

BBQ PRINT" SI RETURNS": 

B38 GETS#: IFZF<SCHREC 1S 9G0TOS98 

468 RETURN 

416 DATASS. 58, 76,.75,74,72.71,78,68,83,65 
426 DATAI19.69,69,67,.64,.78.62.111 

430 DATAGS. 49,59,51,.52,53,54,55,56.57 
440 AZ=1856: B2=Az : D2=A2:Ef=A2:F2=AZ 

$56 GE=Ae 

466 FORI=87TO18:READYH¢I>:>MEXTI 

478 FORIJ=8TOF: READZK¢ I> *HEXTI 

459 FORI=87T09: README I>: HEXTI 

498 HI=PHDC 2): h2=RNIC So RS=RNDC 4) 

SAA Hs SA+ i 1 466 | ESBAA+H2eH#S (FLEA 

SA Wetted ted 1oa—-4o K=8: F=8:0=TI:FCH=8 


FS 


S28 GETC#: IFC#=""THEMC=" s 

S38 CHsASCC CH) 

Sa FOR I= ATO: JFCK=YsH CIs THEHFC=I-5 
aoe HEXT 

268 FORIS87T09: IPFCH=We¢J> THEMK=J 
Se@ HET 

38 T=¢(TI-09-¢68#AR9 :O=TI 

S98 FL=FL<“1a8e6+FCR4 

6Ae Woe 1—-.G1#FL-. 44k o: TFYOSaTHEHS=c 8a 
re S| 

618 IFWCSS8THENS=¢¥-803-'15 

BSA S=-CS#S+, Pel] cr its, 25) 
6386 E=E-Decv-3.63 

B48 H=H+De Ss 

B58 L=-CHev oo SeS BD 

BEG A=CL-E.#SINCATNCHYL 3 

67H F=SINCFL¥n1Sea2 

B86 IFEC-158G0T01128 

698 POKEAZ. 32: 1=117:K1I=INTCK 2? 

TAA K2=K-(2: IFE2>K1THENI=118 

r1@ J=1145+K1:AZ=J:POKEI,1:FOKEIJ+D1, 
26 POKEBZ, 32: 1=120:Ki=INT¢ BSCS) 72) 
roe K2=ABS¢S/23:ITFK2>K1+.S7THEMI=121 
74a K1=-K1#SGH(S) : IFR1¢-2G0TO7Se8 
75s@ IFK1>4GoToOr9a 


PER J=1547+K1 #40: Be=J 

Pra POKES, I *POKEJ+DI. 6: GOTOSa8 

PS POKESI+4, 33: BE=1228 :POKERS. 35: POKERZ+0 
-POKESI+4. 0: GOTOSaH 

PORESI+4,. 33: B2=17°4S:POK ERS. 35: POKERS+0 
‘POKESI+4.6 

FOKED2. 32: 1=121: IFHCaGOTO1ese 

K1I=INTCH/ 189+, 5: k2=H18 
IFK2>K1THENI=128 

J=1°34-IHTCK1 3 #48: D2=] 

POKES. 1:POKEJ+DI.6 

POKEES. 32: 1=11 7 K1I=INTCV 2. 53-22 

pes gA en TF ¥<SSGOT09@6 


Ome aj 


J=1866+K1: E2=J: IFK2>K1THEMI=113 

POKES, 1: POKEI+D1, 6: G60TO328 

POKEST +4. 33: E2=1566 :POREEZ. 35: POKEES+D 
:POKESI+4.4: G0TO320 


OOD Doms 


~ D6 oO J A eo hg ee . 
MIDWOOD OM hy ps 


—'DO oD 
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(OPVRnAsPnrerrntpvneenrerernprnrrTTeieronnnetnvrnrrvvnvveypenrnnrrrerrnerreeneyrrnsrnneryrevynrTvevTHETEHEOETTETDT iil! 
+ 


POKESI+4,33:°E2=1897 :POKEEZ, 35:POKEEZ+D 
:POKESI+4,6 

POKEF 2, 32: I=43: IFF>1THEHI=2089 

IFF<—. fF THEM I= a 

IFF<-. ¢f THENF=-. 7 

IFF>1THENF=6 

GOTOI3a 
J=1664+K1#46:F2=J]:(FOKEJ,H:FPOKEI+0DI,2 
J1=-SGH¢F#1G-182 

K1=-IWTCF#1E-11> 
1o00 J=1075+K1#46:F2=J: eee I: FPOKEJ+DI.2 
1816 A=A+56: IFAD 1S6THENAH=13 

1f2@ POKEGZ. 32 

1636 IFA<@THEHA=8 

1648 K2=INTCA?: Sram Mt te K2=K2-K3#8 

1850 T=2%¢K2): J=1766-K3#40: GZ=J 

1868 POKEJ, 1:POKEJ+DI.2:EE=INTCE/25)+5:1FE 
E<4+1AHDEE?=8THEMFR CEE 2=H 

1876 GOTOS24 

168@ IFS<-1.5G07T01120 

1698 IFE>AGOTO1124a 

1166 IFY>98G0TO112e8 

111@ PRIMT"TEMOOTH LANDIHG. ": GOSUB21 90: GOT 
127 

1120 REM PRINT" S" 

1138 IFH<eGOTOLea2a 


-— 


Singer aera 


Rb toh i bo lo io Wo ee 
iO py A BO fh 


1146 PRINT" SISPEED M5 "KM/H" 
1156 FRINT"HEIGHT LS 
1166 FRINT"CLIME oh Ss" MAS® 
1178 PRINT" DISTANCE TO TOUCH" 

118@ PRIHT" DOWN FOINT i 


1198 PRINT"PROSPECTIVE" 

1266 PRIMT"CONTACT WITH" 

1214 PRINT" SURFACE "La "MM": GOSUB219 

4: GOTO1268 

1228 FORI=1704:POKESS291,8:POKESI+4,129 
1221 FORK=17T038:FOKESI+1, KONE wTK: POKESI+4, 

1S) 

1222 FPOKESS291,.1:POKESI+4,129 

Lees FORK=38TO1STEP-1 :FOKESI+1.K:NEXTK: PORK 

SI+4,. 8: NEXTI 

1225 POKES 3261,.15:POKESI+1, 

1228 PRINT" CRRSPEED 2h M "KA 
cH" 2 
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NAM 


L238 PRIMT"DISTANCE TO TOUCH" 


1248 PRINT" DOWN POINT Dae A ANA A Al ng 
1258 PRINT"SINK BEFORE CRASH ee 33 eS 


" GOSUBS 134 

1268 PRIMT" ANOTHER "; 

L2er@ PRINT" TRY MEWERTHELESS"; : INPUTAS 

2o8 RESTORE 

1298 BE=LEFT#cAt, 1): IFBS="y"GOTOZ1E8 

1368 PRINT'S":FRIMT GOOD LUCK I": EMD 

1318 PRINT" GCIMeeeMLAHDIMG SIMULATION" 

1320: PRINT “iPass See Set eee eee eee ee 


1338 PRINT" #BBMA FLANE IS APPROXEMATELY 148 
QM": PRINT" FROM THE RUMMAY 
1348 PRINT "MIM A HEIGHT OF SOM": PRINT" MTR 
TQ LAHD WITHIN 156M OF THE" 
1358 PRINT 'MRUNWAS WITH LESS THAH 38 EMH" 


1368 PRIMT" MAND LESS THAH 1.5 M/S SIMEIWG 
SPEED" 
1370 PRINT" MAIMMITF “RETURN” APPEARS OM THE 
SCREEHM" 

1288 PRINT MPRESS THE “RETURN’-KEY" 

1398 PRINT" eam YOU KMOM THE INSTRUMEHTS " 


14068 INPLTA#: BE=LEFT#¢ A$. 19: IFES="F"GOTO21 
6A 
1416 GOSUEB1 Sa 
1426 PRINTS" 
1438 FORT=ATO3: PRINT" See ee 
"OHERT 
L446 FORI=87T018: PRINT" 


"NEXT 

1450 PRINT" Stedetetete)" 

1460 PRINT" THIS INSTRUMENT SHOWS THE POSIT 
[ON OF" 

1470 PRINT" THE LANDING FLAPS (a-9), THIS" 
1488 PRINT"POSITION MAY BE CHANGED USING T 
HE" 

1498 PRINT"MUMBER KEY'S" 

191 PRINT"RETRACTED LANDING FLAPS ¢@)" 
1528 PRINT"DON’T INFLUENCE THE FLYING CHAR 
FICTER-" 


47 


1538 PRINT" ISTICS. POSITIONS 1-9 OF THE LA 
NDING" 
154@ PRINT"FLAPS INCREASE THE SIMK AMD DEC 
REASE" 
1558 PRINT" THE SPEED." 
156@ PRINT" THE “RETURH“-KEY DOES NH O T HAY 
E" 
1578 PRINT" TO BE PRESSED WHEN ENTERING THE 
SE DATA" 
1588 GOSUESSa 
1598 GOSUB13a 
1668 PRINT'S":FORT=87T03:FPRINT" 
"= NEST 

1614 FORI=87T014: PRINT "See eB 

"MEST 
1626 FORI=87T03: PRINT" 


> HEST 
1636 PRIHT"SITHE VWARIOMETER INDICATES A RIS 


1646 PRINT"OR A DESCEND OF THE PLAME. " 
1658 GOSUBS36 
1668 GOSUBIS@:PRINT"S" 
167@ FORI=87T01S:PRINT" 
"MEST 
1686 FORI=8TO03: PRINT" 
"HEAT 
1698 PRINT" SITHE ALTIMETER SHOWS THE HEIGHT 
EK 


178@ PRINT" THE RUHWAY IN METERS." 
1718 GOSUESSe 
1728 GOSUB12:PRINT"=S" 
1738 FORI=87T018:PRINT" 
"SMERT 
1748 PRINT" SITHE SPEEDOMETER TELLS THE" 
1758 PRINT"SPEED OF THE PLANE IN KM’H." 
176@ PRINT" THE LOWEST SINKING SPEED OF THE 
PLANE" 
1778 PRINT"IS AT SB KMCH." 
1788 PRINT"DO NOT GO BELOW 6@kKM-H" 
1568 GOSUESSA 
1518 GOSUE138:PRIMT" =" 
1826 FORI=8TO18: PRINT" Ld 
"= HEXT 
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— 
im 
3 
m2 


— 
f 
@ 


os 
- OM oo 


“J =mcnh 
few 


So J 
= Om cm 


ee i 
(pb oo oo 
ms) 


= 
i ip 
_— 


— 
'ptp ‘Db 
& Of) 

Mm 


EER" 
1978 
MK" 

1388 
Hq \! E " 
1938 
2A8e 
2618 
2A2e 


FORT=87T03: PRINT" 

"= MEST 
PRINT" SITHE ARTIFICIAL HORIZON" 
FRINT"A CROSS" 
PRIMT"BETWEEM THE TWO LINES. INDICATE 
PRINT" WHETHER THE NOSE OF THE PLANE" 


PRINT"IS BELOW OR ABOWE THE LEVEL" 
PRINT" THIS FOSITION MAY BE INFLUENCED 


PRINT"WITH THE UPFER ROW OF CHARACTER 
PRINT’ KEYS. ? 


PRINT" BleleleleteIT MEAHS ©": PRINT 
PRINT“AT On OP PF iG H eT 


A PRINT"NOSE UP NOSE 10 


PRIMT"LESS SPEED MORE SP 
PRINT"LESS SINK MORE SI 
PRINT" THE “RETURN’-KEY DOES NOT 4H 


PRINT"TO BE PRESSED ." 

GOSUBSSa 

GOSUBI Sa: PRINT" S3" 

FORI=8T015:FRINT" rel 
"=? NEXT 

FORI=87T03: PRINT" 
"OMEST 


A PRINT"STHE TWO LIMES SHOW THE BEGINNI 


PRIHT"OF THE RUNWAY. " 
PRIHT"THE LINE INBETHEEM THESE LINES" 


BH PRINT" SHOWS THE CALCULATED TOUCH DOWH 
a PRINT"POIMT. " 


FRIWT 
FRINT" THE LANDING IS C.K. IF THE FLAY 
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TELTUTETYTPPRPPEE ETT AF 


FR LLAMA MARLAM ALAA MAMU MACAU AUAAAUMUAAGARUMMMOUUARAMLUUIRUULCGDUALALRLRLULMLAUAMALALALAORLRLLLCUUUAMMUUUCLUO CGO CU EON G0) TL 


2118 PRINT" TOUCHES THE RUNWAY WITHIH 158 M 
ETERS" 

2126 PRIHT"OF SAME WITH A MAXIMUM OF 9a KIM 
Pt H " 

2138 PRINT"AND A MASIMUM OF 1.5 M/S" 

2148 PRINT" SINKING SPEED." 

215@ GOSUBSS8 

216@ PRINT'S": IMPUT"TIME FACTOR ¢1=REALTIM 
EX "GAH AR=ABSCARD > IFAX=8G0TO2Z168 

2176 GOSUB136 

£188 GOTO41a 

2190 GOSUBSSA 

2206 PRIHT" Cee RRP RRRBES LIGHT RECORD" 


Page ji’ > NS AIRMEN DRE 2 Oe a tee 
2228 FORM=17T048 

e2c8 IFFR¢M)<=@THEM2388 

224@ K2=INTCFROM> > 

2208 KS=INTCFRCM3S) 

2268 K2=K2—-K3#e 

22rA H=2n¢P-Ked 

eec@ J=1564-M-Ks#4a 

2e98 POKET.H:POKEI+01I.2 

2o88 HEXTM 

2318 FL=6:K=6:F=8 

2s2@ FORI=@7T041:FR¢1T2=@:NEXTI 
22c8 RETURM 
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Butterfly 


This little program draws symmetrical figures on 
the screen when you enter two numbers. The first 
number should be smaller than the _ second one. 
After the drawing is finished, press the space bar 
for the next figure. 


REM DRAW SYMMETRICAL FIGURE 

PRINT"S] EHTER TWO HUMBERS. FOR EXAMPLE" 
PRINT" 18.15 AND PRESS RETURN" 

PRINT" ®) WATCH THE DRAWING OM THE SCREEM" 


C2) Po 


10 POKESS2S8. 8: POKESS291.1:°FREM BORDER AND 
BACKGROUND COLORS 

— hea > @=51 - REM CHARACTER 

38 K=1.25 

46 $=1824 .: Caas296 ¢-REM SCREEWH & COLOR 
SQ T=3 

68 INPUT" ENTER 2 NUMBERS "; A.B : FRINT " 


r@ REM DRAW IT 

188 FOR: TH=8 TO 280 STEP 28n-150 
18" RB=2eS THC THET 3 

118 sas =K#R#COS ¢ AXTHS 

Lie ute: =ReS THCReTHD 

126 P=C124+sH#464+8h+28 

136 FORE S+P,0:POKEC+P.2 

146 HET TH 

156 GETAF: IFAS=""THEN Se 

166 FRINT"S" : GoOTOEA 
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Eternal 
Calendar 


This program calculates a calendar for any month 
in any year past the year 0. For months of years 
before 1900 it takes a while to calculate the 
calendar. The calendar as well as the time it took 
the computer to calculate will be displayed on the 
screen. 


18 POKES3291,.7:POKESS236, 3 

2G PRINTCHR#( 1445 

SI PRINT "CIMAeeRRBIPROGRAM CALCULATES A CAL 
EMDAR:" 

ae PRINT: PRINT" FOR AM‘ MONTH" 

4 PRINT: PRINT " SINCE THE ‘EAR 6" 
6A CLREDIM Méce4a: TR=TI 

SQ PRINT: FRINT"ENTER 4 DIGITS FOR THE ‘'EAR 
": PRINT: INPUT" "SG 


Se IMPUT"MONTH¢ 1-129" 

S4 IF G<i988 THEN 185 

98 D=(G-1388 #365 

32 FOR Q=1981 TO G-1 

S4 IF Q“4=INTCOe4>) THEN D=D+1 
36 NEXT 

36 D=D+2 


166 GOTO 27a 

18S PRINT "Soeeeleleleteere THIS TERR TAKES A WHI 
LE yu 

i T=G6#365 

A FOR Q@=1 TO G-1 

IF Q“4GG=INTEO488>) THEN 136 

. IF GQ 1G8@=ITHT CR 1G@e THEN 1448 


ee pe pe 
| 
Ci 14 1D 
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136 IF Ge'4=INT¢G4> THEN D=D+1 

148 HEXT 

158 D=D+1 

2A PRINT" CIsialeleleleh i ee CALENTIAR" 


280 FOR J=1 TO 24:READ M$(0):NEXT 
290 FOR feara?: READ D#¢J>:MEXT 
S00 PRINT M#(2#M-1 2 7TABCS596 
318 PRINT:PRINT:FOR J=1 TO 7:PRINT TARC6#< 
J-69 DSC)" "5 -NENT 
316 IF Ge4GG=INT(G/4009 THEM 320 
318 IF Ge1@G=INT¢G/180) THEM 238 
320 IF Gé4=INT¢G’4) THEN M#C49="29" 
330 FOR J=2 TO 2eM-2 STEP 2:51=S14+VAL CMEC] 
39 NEXT 
332 IF M=1 THEN S1=@ 
340 S=S14+D-P#INTCCS14D9 47) 
S50 Y=VALCMS(2#M 3 9 
360 S=S+7:IF S37? THEN S=$-7 
SPA T=146#65-1)9:U= 
350 PRINT: PRINTTABCT=1); 
382 IF T=37 THEN 391 
298 FORD=1TOY:GOTOS92 
291 PRINT 1:FOR D=2Tov 
392 PRINT Ds; SPCCU-LENCSTRECDD 92; 
dQ IF POS€G)234 THEN U=3 
41@ 1F POS¢@I<34 THEN USS 
420 HEMT 
422 PRINT:PRIHT:PRINT:PRINT TABCI@2"TIME = 
"INTC ¢TI-T8)/36)-108_ "MINUTES" 
430 PRINT: INPUT "ANOTHER YEAR CY¢H) "GK 
440 1F LEFT#¢K#,13=""" THEN 68 
450 1F LEFT#<K#,19="H" THEM ENT 
468 GOTO 426 
718 DATA JANUARY. 31,.FEBRUARY. 2o.MARCH, 31.7 
PRIL»30.MAYY 31, JUNE, 20, JULY, 31 
2@ DATA AUGUST. 31,SEPTEMEER, 24, CICTOBER, 31 
NOVEMBER, 36, DECEMBER. 31 
720 DATA SUN, MON, TUE. WED. THU. FRI.SAT» SUN 


ares 
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Bomber 


In this game you fly a fighter plane. Your mission 
is' to fire missiles at hostile submarines. Use key 
'F' to fire one or several shots at the submarine. 
The number of rounds, the number of hits, and the 
percentage of hits to shots will be displayed. 


4 PRINT"Z" 
S PRINT" 3 + BOMBER + 


6 POKES3291, 7: POKESS290, 3 

J Bef" SMeLeDeDededMdededetededededetetetede re" 

10 FORG=1TO1000:NEXTG 

15 PRINT" 

26 PRINT"YOU ARE FLYING A STARFIGHTER" 

25 PRINT"AHD YOU ARE PATROLLIHG THE AIR-" 
3@ PRINT"SFACE GFF THE EAST COAST." 

35 PRINT"HOSTILE SUBMARINES ARE APP—" 

44 PRINT"ROACHING THE COAST. YOUR MISSION" 


45 PRINT"IS TO HINDER THEM FROM FPEHE-" 

47° PRINT" TREATING HOME WATERS" 

45 PRINT 

pa PRINT" THE PATH OF THE (MISSILE IS) TNPLve 


40 

ib PRINT" BY YOUR SPEED AND. THE SPEED. Or 7h 
E WATER" 
e 


Neal. Fr Rea Re be i Paubese ew oR ces 140. Lien 

rQ@ PRINT 

Po PRINT"READY. CY'<No?" 

Sa GETH#: IFH#=""THEN Se 

So IFHS=""" THEM PRINT"T"s -GOTO11a 
[8 IFHf="N"THEM 95 

35 PRINT 
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96 PRINT’ YOU WANTED TO FLAY ANYWAY" 

186 PRINT"LET’S GO" 

165 FORI=170300@:WEXTI:PRIMT"T3"; 

116 PRINT"R" 

115) PE LMT" sunsssasisnescrosecaesanrsnestose isiaiaAAITOSRR SER 


et ee 

128 PRIWT " Sletetetedeqeledereteqete) 

(ol) FET HET” pepeennenensaneseeae imeaSN Aen RARE IERIE ESS 
PRINT" sa" 

PRINT " S0eteTeleTeleqeyeqeteye)"" 

PRINT" 


es 


i a es 
8 i oo oo mo Oe & i 3 
on ms 


GOSUB244 > PRINT" 3" 

FORA=1TO32 
PRIMTTABCAD (FRIMT "AQT eee)" 
GETC#: TFC#=""THEMZ88 
IFC#="F"THEN1S8 

GOTO2aa 

GOSUE 2a6ea: FORD=1T0148 
FRINTTARCDI+A2 :PRIWT". "> HEXTD 
PRINTTABCCD+A9-39 > PRINT "eee" 
GOoTOSs2e 

PRIMT" eqetetetetstete)" 

B=(A-32#-1 
PRINTTARCE+19:°PRINT" M8 
215 GOTOZ25 

mel M=M+1 

eel IFCDI+A2=24THEH24@ 

eed TFM=SaTHEN23e 

eed PRINT "sy" 

aoe HEXTA 

zag PRINT'S)":GOTO11@ 

246 J=J+1 

241 GOSUEZ1 EO 

e42 IF J=11THENZ7@ 

243 PRINT"T": GOTO118 

at4 PRIMNTBS;"S85CORE "J J:PRINT"SSROQUMDS "I 
> TFM=Q@THEH250 

24? PRINT" SMAVYERAGE ="VINTC 1eee¢ M5 I 
2a RETURH 
266 GOTOL1G 
2er@ RESTORE 
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oe oem ones Conon 


mt 


fa 


oo co ~J 
Dati 


EF 
=i) 


mt 
per) 
™ 


| Oe od 
mm 


THr fag Pa mg Pe fe 3 


+ m o er) ha 


a 


GOTO116 
RESTORE 
GOTOL1a 


VES4296 : W=S4276: R=Sd277 :H=S4273:L=s42 


POKEY. 15:POKEW. 65: 
FOR M=28TOSSTEP-2: 


FORM=15 TOSSTEP-2: 


PORE W.8: POKER. @: 
FOR #=157TO@STEP-1: 


Ry 15: POKEH. 4@:POKEL, 


POKER. 15 
POKEH. 48: POKEL. i! ME 


POKEH. 46: POKEL» ME 
RETURTH 


FOKEY. 8: POKEM,. 129°P 
288: HEXT 


PORE WW. 8: POKER. @: RETURN 


REM 
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NOTES 


Bouncing 
Ball 


This game is similar to the game wallbreaker which 
is also in this book. You have to destroy a wall 
with a bouncing ball. You move a paddle at the 
bottom of the. playfield to keep the ball from 
leaving the playfield. There is a total of nine 
balls. The paddle can be moved to the left with 
key '1" and to the right with key ‘'3'. The 
difference between this game and the game 
wallbreaker is, that the paddle keeps moving in 
the defined direction unless it is stopped with 
key ‘2°. 


1 POKESS291.7°:POKESS290, 3: PRIHTCHRE( 1445 
= SC=8:EL=9: PP=17:S=1824: PM=8 
a At= " {* A Ef="] uw 
1& PRINT" cIatela" 

i1 FOR I=1 qa eB Ce=MIDFC" See "JT. 13 

12 PRIHT" (i IF 143 OF I>4 THEM PRINT"&", 


= FOR H=1 TO 32:PRIWHTC#: -HEXT H 
1? PRINT"@ ":NEXT I 
45 PRINTS!" | 


46 FOR H=1TO 23 

49 PRINT At :PRIMT TABC349; Bt 
SQ WEMT 

7A GOSUE 451:G0SUB 236:G0TO 145 
180 REM MATH PROGRAM 
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He I ee ee OT 
Mo ~pONS LPhe oo ho my oe oe 


ee a ee ee eee 


141 


GOSUE 266 : REM PADDLE MOVEMENT 
EP=EP+ED 

IF BFS2@23 GOTO 135 

PE=PEEK CEP > 

IF FRe32 OR FK=96 THEN 115 
GOSUE SAAQ:REM BALL REBOUND 

IF PEEKS BPo<>32 GOTO 183 

FOKE BO, 32 

POKE BF. 81: POKECBP-1@24 9455296, 2 
RO=EP 

GOSUE 26G : REM MOVEMENT PADDLE 
GOTO 188 

EL=EL-1 

GOSUB 451 

FOKE BO, 32 

IF BLé=@ GOTO sae 

TIMNS="88G088" 


2 GOSUBZHG 
2 IF TI1<1ee@ GoTO 142 


EP=1426+24# INT ¢1G#RNDC 1 94+19+BL-2*IMTCBL 


: BOSE 


BD=29+2# INT CRNDCL+.59 
GOTO Lae 


A GET DIF D=8 THEN 218 


PM=D-2: IF ABSCPMI31 THEN PM=G:RETURN 
IF PEEK(5159=255 THEN PM=@: RETURH 
PP=PP+PM 

IF PP¢=@ THEN PP=8 

IF PP>=38 THEN PP=30 

PRINTTABCPP) 3)" [1 "ae" 

RETR 


IF PK eet OR PK=117 THEN GOSUB Seq: Bn= 
(GOTO 45 

it PKa79 THEM BD=-41:G07T0 458 

IF FE=99 THEN BI=BD-88:GOTO 458 


> IF FR=&@ THEN BD=-32:GOTO 4568 


REM TOF OR SCORE 
IF PRE 168 GOTO4aS 


E Pk=182 GOTO 495 
CSUR Sea:GcoTa 450 
=SC+ 1 kL: 


ioe ee nt 


$18 GOSUE See 

438 POKE EP. 32 

458 BRP=BO 

451 PRINT" SMRBRBPIECORE ="; 5C; TABC299; "BALLS 
452 PRINT" SQetedetetetereredede deere re retereqe Taye ye) 

455 RETURH 

S88 ED=SGN¢ BDO#CABS CBD D-S@) : RETURN 

SBA FOR T=1 TO 15:GET A$:HEXT 

SHS PRINT" Steleleteletetereretetederere" ; TABC LS "AGAIH 
SAS GET WS: IF Yt="" THEM Sas 

SOS IF LEFT#¢"#,19="9" GOTO 5 

Sa6 PRINT 

BAS PRINT: PRINTTABCI@); "THANKS FOR PLAYING 


S18 EMD 
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NOTES 


Take 
a Match 


In this game there are three piles of matches. In 
the beginning you define how many matches there 
are on each pile. At each turn the computer or you 
have to take away at least one match from one of 
the piles. You only can take a match or matches 
from one of the stacks at a time. The winner is 
the one who takes the last match or matches. 


= REM <C> ELCOMP FUBLISHING INC. 
14 GOSUBEaE 
PRIHT"HOW MAN MATCHES OW EACH FILE" 


ee 


26 INPUT"ENHTER 3 HUMBERS “iAH. Bx. CH 

2a PRIHT 

36 PRINT"ENTER “17 IF YOU WANT TO.STRRT" 
48 PRINTVENTER. *eeohPiol SHAUED StART" 

SA GETRR: IFRRS1LAWDRECSSTHENSS 

BA CMP SROTOTE 2a 

TA GOSUBE AA 

=8 GOSUERSE ; 

SQ PRINT: PRIHT"IT“S YOUR TURN" 

100 PRINT: IMPUT"EWMTER FILE AND NUMBER "sTe 
sil ee 

116 PRINT: IFIN<1ITHENPRIMT" You HAVE TO TAKE 
AT LEAST CWE !":GoTO1ea 

126 ONINGOTOLS@, 186,218 

134 PRINT"PILE NUMBER HOT EXISTIHG !" 

1446 GoOTOSA 

156 Ax=AR-JIe 

168 IFAR<ATHENSS@a 

178 GoOTOS38 

186 BYSEBR-Ix 
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£23 3 3 fad 


(TR bhenge Mio 


pet Cede tad ed Ode: 


Loy oi 4 Ty 


Dic EAN BN 


hh he 
Pa ee et 
i im 


458 
440 
ASG 
460 
APA 
480 
450 
S10 


IFBR<GTHENHZS& 

GOTOS30 

Cx=Cx-JI2 

IFCH<ATHENZSA | 

GOSUBESA 

FRIHT : [FAR=GANDBH=GAHDCH=8THEHPR IMT" 
PANES ORGS OME": ENT! 

PRIHT:PRINT"PRESS “*%” FOR COMPUTERS DR 


GETR#: IFR#<3 "8" THEHZ66 
R#=" ": GOTOSSa 
PRIMT"DOH’T TAKE MORE THAH THERE ARE ! 


IFAR<@THENAH=AR+ I 
IFBXM<G@THENBR=BH+ Ih 
IFCR<ATHEHCH=CH+I2 
GOTOSa 

E=By: C=C 

FORA= Dear eal 1 
GOSUBSSA 

ers S=CTHENA=A: GOTOS1a 


FORE= Br er STEP~1 
GOSUBS: 


5 IFT LO THENEY=B:GOTOS10 
a HEXT 


BSRY 
FORC= =Cre~1TORSTEP-1 
GOSUEBSS& 
IFI1#=8THEMCH=C : GOTOS1& 
HEMT 
IFCHASATHENCH=CHX-1:GOTOS18 
IFER<>ETHENBH=Be-1 > GOTOS18 
A=AR-1 ) 
PRINT: [FAX=@ANDBH=G@AMDCH=8THENPR INT" 
PE ee": GOSURESe: EMD 
GOTOra 
Ne=A SO MA=B 
GOSUBSSa 
He=lin: Me=C 
GOSUESSAa 
RETURM 


A OT Lk=¢HRORME OANDHOT CMRAMIO 3 
38 RETURH 
AB PR sshd " Tihs AKE A MAT CHseeccccs 


Soe. part 

6 RETURN 

B28 PRINT 

Geo PRINTTABCS) "1ST PILE"SPCC3>"2ND PILE"S 


14 

ra 

C39 "RD PILE” 
638 PRINT 

oo PRINTTARC POARSPCe PO BRSPCC PICK 
ed8 PRINT 

E45 RETURN 
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Bring Over 


In this little game, you have to solve the 
following problem. A farmer with a wolf, a goat, 
and a head of lettuce has to cross a river. The 
boat can only carry him plus one of his three 
companions. What does he have to do so that the 
wolf doesn't eat the goat or the goat doesn't eat 
the lettuce while he is gone ? Enter the direction 
(R or L) and the number (1-4). 

= REM <C> ELCOMP FUBLISHING IWC. 

18 DIMAS C49 -DIMBE< 4) DIMAC4)  DIMBC 45 

2A AFCL ="1- WOLF": Ag¢so="2 LETTUCE": Ag¢3s= 
"2 GOAT" A€¢4o="4 FARMER" 

BEe Le BS¢ ea Bec Se are Bee Aa 


=, 
a! 


AM BCL=8: BCP 20: BC QO Bed eh SRSA 
GA ACLISRD:AC PHB: ACBI=4 ACS S10 SL=1S 
BA GOSUEASE 


FORT=17T04:PRINTAS¢ To; TABCIS3 5 "Ge 

" MERT 

OO Pie Ilia 

AQ FORI=1704: PRINTTARCSOQ9B¢¢1 9 :NENT 

188 GOSUBSRA: IFR1I=1THENR1=8:GOTO2a 

118 IFSR=197HEMPRINT > PRINT" COWNGRATULAT IOS 
PROBLEM SOLVED !":END 

L208 PRINT "Steeleledetereteraleteteteterereteererio'we RIGHT — 


bow 


120 PRINT"MOVE LEFT - L" 

id@ PRINT"ENTER LOR R PLUS NUMBER" 

158 PRINT"FARMER ALWAYS RITES" 

178 GETRE: IFRSCD"R"ANDRE<>"L" THEN 78 

188 GETR: IFRODLANDR<>2AMDR<>SAMDR <4 THEN Se 
190 IFRE="R"ANDR=1THENZTO 

S00 IFR="F"ANDIR=2THENZSO 

S1A IF R¢="R"ANDR=3THENZ3O 

S20 FRE="E"ANDIP=4THENSAe 
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Seep ee ne ee ener I I ee OeeOOOoOoOowememeeeee 


236 IFR=1THENS14 

246 IFR=2THENS2& 

258 IFR=3STHEN3S3S6 

268 IFR=4THENHS44 

er@ BECL =ASC1) ASC o="":BC1)=AC1>:SL=SL-A 
(19° S5R=SE+AC19°A¢1)=0:GOTOSeR 

2s BEC Sy=AsC2o ASC Sa="" BC S=AC2):SL=SL-A 
C2): SR=SE+AC29 AC 25=8:GOTOREG 

290 BECSI=ASCSS ASC So="": BC S=SACS) : SL=SL-A 
Coo SRESR+AC 3) > ACS) =8: GOTOSEa 

S60 Bet 4osAeedy  AFC4oa"" Be dysAc4s: SL=SL-A 
C40 SR=eSR+AC4)  ACdo =: GOTOS6a 

BIG ACL S=BEC1) BEC 1.="" (ACL =BC1): SR=SR-E 
>SL=SL+EC1):B¢19>=@:GOTOs4a 

AFC So=BECS) BEC So=""“ACS=BC2): SR=SR-B 
'SLESL+EC20° B¢fs=8: GOTO346 

ASCSY=BECSD BEC" ACSI=SBCS) : SR=SR-B 
(SLESLAE CRA Besos 

At¢4do=Btc4o Becdoe""  Ac4d =BC49: SR=SR-B 
‘SL=SL+B¢4) > Bedo=@ 

GOSUBSee: IFR1i=1THENR1=@: GOTOZA 
IFSL<60RSL>1ATHENIFSECEORSR> 1ATHEHES 
GOSWUE4SA 

FORI=1704:PRIWTAfC 1) > NEXT 

PRIWT SY Tir? 
FORI=17T04:FPRINTTABC SQ > BEC 19 > HEXT 

PRIHT " Sfeleleteteqeteteqere) 
IFSL=60RSR=6THEHPRINT"WOLF EATS GOAT ! 
:GOTO45e8 

3A IFSL=fORSR=PTHEMFRINT"GOAT EATS LETTUC 
EE": GOTO45a 

444 PRINT"GOAT EATS LETTUCE.WOLF EATS GOAT" 
450 PRINT: FRINT"PRESS “#* FOR NEW GAME" 
460 GETR#: IFRE<o"s"THEN4A6E 

478 GOTOSE 

458 PRINT " SC asses BRIHG OVER som 


fa ee EO oy Oe ee 
a Ey ee ee ED ee ee ee 


of 0 0 hm em 


ta 


49 RETURN 
SOG TFACLI=BCL ORACS9=BCSORACSI=BCQIORAC4 
Y=BC4 0 THENS 2S 

“18 RETURH 

Sle PRINT" eee ROHG IHFUT - TR’ AGAIH" 
SSG FORT=1 702800: HEXT:Ri=1: RETURN 
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Tic-Tac-Vic 


TIC-TAC-VIC is a C64 version of TIC-TAC-TOE. When 
you type in the program be careful to enter all 
the blanks and the cursor control commands. 

After typing it in, start the program with RUN. 
The computer will ask you whether you want 'X' or 
‘O'. The player with 'X' starts. 

Try to get three of your characters in one line 
(vertical, horizontal, or diagonal). 


1 REM ELCOMP HOFACKER 
2 PRINT" : POKESS286. 4: FOKES3281. 1 
3 PRINT"2)" : PRINT: PRINT 
4 FORM=1706: PRINT" qs 
W" SNEXTH 
S PRINT" id # 2a 


an 
. 


& PRINTS 


7 FORM=1706: PRINT" 2 
@" NENTS 
& PRINT" 4a 
5" 
9 PRINT" 


\a 


\= 
A 
ne, 
a 


10 FORX=17T06: PRINT" as 
mM" NEXT 
11 PRINT" ras aa m 
qu 
SG PRINT"SO YOU WANT “x OR “oe 
S2 GETC#: IFC#=""THENSZ 
SS IFC#="""THEN4?S 
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it 


A 


OMA DOM DON pore Dom) mone opm 


PARE Pe PE Pe Pe Pe Pe PE PE Pt Pt PP ee Pe Pe pp PP PEt Pe Pt bt Pt Et IT} 


eS Gc) tee) RR MRCURCMSS MOLE RC MNCM MMMM eas een ee eae Wee ee ee ee OO OO OO ee ee ec a eo Sok LN ace ae ee 


hae Om oo Pe Too ha 


~ 
i=) 


Peto": ga ee 


G=-1:°H=1: IF S¢S9<>@THENI aS 
SCS 9=-1:GOQTOQ135 

IFS¢S2<>1 THEH106 
IFS¢1).<>8THEN118 
St1o=-1:GOTO195 
IFS¢2o=1ANDS¢ 19=@THENIS1 
TFS¢49=1AHDS¢ 19=GTHEMHIS1 
IFS¢69=1ANDS¢9>=@THEH1IE9 
IFS¢S.=1ANDS*¢ S9=ATHENIS9 
IFG=1THEN1I12 

GOTO11S 

J=3# INT CCM-19739+1 

IFS# IMT ¢OM-19.°39+1=MTHENK=1 
IFS# INT ¢OM-19-°3)+2=MTHENK=2 
IFS# INT CCM-19°39+4+3=MTHEMK=3 
GOTdL2a 

FORJ=17TOV STEPS: FORK=1T03 
IFS¢J9<>GTHENI 3a 
IFS¢J+e29¢2GTHENI 35 
IFS¢.J+1.<>8THEN15@ 
S¢J+19=-1:GOTO135 
IFS¢J9=HTHENL 58 
IFS¢J+29<>GTHEM156@ 
IFS¢J+19<>GTHEN1S8 
S¢Jo=-1:GOTQ195 
IFS¢.J+2><>8THEN1S@ 
IFS¢J+19<2GTHEN1 58 

SC J+29=-1:G0T0195 
IFSCK2<>GTHEM168 
IFSCK+62<>GTHENIES 
IFSCKk+3 <> 8THEM1 7a 
StK+39=-1:G0TO195 
IFSCK>=HTHEM1 78 

IFSCK+6 9<¢>GTHEM1 Pa 
IFS¢k+39<>GTHEM1 7G 
Stka=-1:G0TO195 


IFS¢K+39<¢SGTHEHI FS 
Sck+6.=-1:G0TO195 
GOTO45e8 
IFS¢39=GANDS¢ 7 > =GTHEH1S7 
IFS¢S9=GAHDS¢ 1 9=8THENIS1 


IFS¢?2=GAHDS¢39=8THEMIS3S 
IFS¢39=GAWDS¢ 1 2=GTHEM1S3 
IFG=—1 THENG=1 :H=-1:GOTO118 
IFS¢S>=1ANDS¢ S>=ATHEMIS2S 
FORT=27T09: IF S¢1><>aTHEN1?S 
S¢T=-1:G0T0195 

HESTI 

S¢l>=-1:GOTOQ195 
IFS¢1)=1THENI?? 
S¢39=-1:G0TO0195 

Fa=-1: 6070195 

Sc9)=-1 

REM 

PRINTCHRS¢iddo5 :PRINT"SITHE COMPUTER! 
TOs oa” 

PRIWT" 


a) AS ee OR OO ee i ee = 


Lay 
pam 


LOO i i CD 0 9 me ed Td dd od 


iT 


= 
ot 
~.J 


7 PRINT" 
": PRINT" 
282 GOSUB1Eae 
265 GOTOS@a 
458 IFG=1THENSES 
455 IF J=7ANDK=3THEN4SS 
468 NEXTK. J 
465 IFSCS=GTHENI7 1 
467 BOTOL?S 
475 Pes ht Hee" Q" 


SAA PRINT: PRINT"SENTER YOUR TRY’ 


SQ1 GETC#: IFC#=""THEMS@1 
SG2 M=VALCCH 
SO5 FORM=1702: PRINT" 
"NENTS PRINT" | 
| IFMSGTHENPRINT"THAT WAS GOOD !":GoTOze 


=I6 

4 

Ja" ITFM>STHENS@S 

S88 IFS¢M>=@THENS14€ 

“2 FRINT"FIELD IS OCCUPIED !":PRIHT: PRINT 


/ GOATOSaaG 

S18 G=1:S¢Ms=1 
S28 GOSUELEGS 
S38 GOTO1Ea 
1888 GOSUESEaA 
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pa es ao ee 
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=> 
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~ 
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HENTI: FORI=1 703: IFS¢1s<¢>S¢1+327THEN115 


FORT=17T0°STEPS 
IFS¢I<>S¢1+197THEM1115 
IFS¢I2<>5¢1+22THEN1115 
IFS¢ 13=-1THEM1358 

IFS¢ 13=1THEM1288 


IFS¢CI2<35¢C1+697THEM1150 
IFS¢] 2 =-17THENM1I3S54a 

IFS¢ 1 2=1THEHL268 

HESTI: FORI=1709: IFS¢1>=8THENI1S5 
HESTI: GOTO1488 

IFS¢52<2>GTHEM117@ 

IFS 12 =GANDS<¢95=GTHEH112@ 
IFS¢32=GANDS¢79=GTHEN1 184 
RETURH 

IFG=-1THEH1 354 

PRIMT"SI WIM !": GoOTOZHaL 
PRIWT"SITHAT WAS GOOD !" 
PRIHMT:PRINT"AMOTHER GAME ¢Y/H> 2" 
GETC#: IFC#=""THEHeaee 
IFMID#<C#.1.19="9" THEMCLE : GOTO2 
EHD 

FORI=1709 

FRIHT' st": IFI<47THEMAR=2 : GOTO3648 
IFI267THEHAB=16: GOTOSE48 

AR=3 

FORH=1TORB+1°PRIWT > HEXTH 
IFI=10R1=40R I=" THENBA=4 : GOTOS8r 1 
IFI=20R1=SORI=S8THEHBA=15:GOTOsar1 
BAR26 

IFPS="%" THEHSESG 

IFS¢ 1 2=-1THEHGOSUBR4G2Se 

TFSe Ta =1THEMGOSUBS ase 
MESTIORETURM 

IFS¢{ 1] 2=-1THEMGOSUES 2A 

IFS¢ 12=1 THEMGOSUE 4628 
HEXTI > RETURH 

FRIMTTAECBA? "42 3 rr" 
PRIHMTTABCEA?" “Qo =r" 
FRIMTTABCBAS" oe 
PRIHTTARCEAD" Se oe Ot 
PRIHTTABCBAS" “i 


CREA CALA 
i Go me im 


No oh On fo bo 


Gi Gi cl co tm mi 


RETURH 
PRIHTTABS BAS" 
FPRINTTABCEAS" 
PRINTTABCBA?" 
PRINHTTABS BAS" 
RETURH 


TTT PPP 


rad 


a8 3 


a2 3 @" 
a 
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Airbattle 


This’ game is played by two players. The left 
player shoots with 'A', the right player shoots 
with 'O'. 

Different planes flying at different heights are 
flying over the playfield. Try to shot them down. 


S PREM as 

S FORT=17TOS9: PRINT "#"s -MESTI: PRINT 

1a PRINT" # SHOOT OFF FLAMES 

*" : 

11 FORT=17039:PRINT"#"; -MEXTI-OPRINT 

12 PRINT: PRINT: PRINT 

1s PORE S3281.1:POKES3280. 2 

i+ PRINTCHRE¢ 1445 

15 PRIHT"SOU CAN SHOOT AT 4 DIFFEREWT AIMS 


16 PRINT"AT DIFFERE 
if PHINT"THE AIMS R 
EGY 

19 PRIHT:FRINT"THE 1ST PLAYER USES “A’ TO 
HOOT 

ZH PRINT: PRINHT"THE 2HD PLAYER USES “@" TO 
SHOOT " 

26 PRIHT:PRIHT"SCORE 21 WINS THE GAME !""F 
& TMT 

SA PRINT: FPRIHT"HIT AMY KEY TO START" 

SS GETZ#: IF2$=""GOTOSS 

a PRINT'" = CLR 

1 FORI=1 7020: FRINT:HEXTI 

A2) PRES A=F IRE IS THBCSS 7" a 
=FIRE* 

23 PRINTTABC Id: "> TABCS495 °°" 

35 PRINTS" 


MT TIMES." PRIMT 
RE AT DIFFEREHT ALTITUD 
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a 
Lat fai 


te mt 


Oo Po 


Pea Poa Pee ee ee 
mi ee 
Oe Semcon 


1 iT 


-, 
a! 


S48 


Oe ee eS ee a ie 
LP he me MS Om Oto pe mone | 


BERBER REREBR RWW WO to to oon 


fa 


| 
[o>] 


M=INTCRHDC19#1094+3:S=0 

W2=1H64+4e40 

FORI=170%: PRINT" Ml"; :HEXTI 

MISINTCRNDC 1944944 

OM M1 GOSUE 208,300,400, 468.468 

PRINTS" 

GOTOLAa 

FORI= 1TO35 

IFS=1G0T0238 

PRINT" 2 | “He 

PRINT’ MEI"; -E=4 ; 

IFAS="A"GOTOZ20 

IFE#="8"GoOTOZ2A | 

T=TI 

IFTI-T¢16-"GOTO2Z15 

PRINT’ OM W"'5  HO=Ho+1 

GOSUBSA | 

HEXTI 

PRIHT" Imei " 

RETURN 

FO IRI=1 7035 

IFS ={G0T0336 

PRINT" cw Ee" 

PRINT"? Heme" ; -E=4 

IFAS="A"GOTOS28 

IFB¢="a"GoTOs2a 

T=TI 

IFTI-T<15-HGOTOS15 

> PRINT" YG :H3=K4+1 
GOSUBSAA : 

HEXTI 

PRINT" INST " 

RETURN 

FORI= 1TO35 

IF (= 10 ITO4 38 

PRINT" 2a ee"; 

FRIMT "FO Mg” 5 -E=4 

IFAS="A"GOTO428 

IFES=""GOTOd2a 

T=TI 

IFTI-T<215-“GOTO415 

es MME" SSSKS+1 


438 NEXTI 
448 PRINT" TLL Lo i 
450 RETURN 

468 Acs} 1TOSS 

461 IFS=1G07T04238 

465: PRINT" A! 5 

47@ : PRINT" MMI"; B= 
471: IFAt="A"GOTOdSA 

172: IFES="a"G0TO4so 

473: TsTl 

475: IFTI-T<5-NGOTOS7S 

420 : PRINT’ MD W"5 83=K3+1 
455 : GOSUESEA 

498 MEXTI 

495 PRINT" LLL i é 
496 RETURN 

608 IFZS="A"THENAS="A" 

610 IFZ$="G"THENES="0" 

620 RETURN 

7aG REM FIRING ROUTINE 

PAL PSINTCRMDC1 #3941 

ra2 FORD=1TOP 

ras : IFASCS"ANGOTOPZa 

7O6 : IFY=eGOTORaS 

rar : POKE1919-4.32 

708 : POKELS79-¥, 43: y="+40 
7A9 : 1F1919-¥-N3>EGOTOTIS 
718 : IF1919-Y-N3>=0 GoOTOSaG 
P15 IFW>7EG THEN AS="":POKELI19-¥. 32: =a 
718 NENTD 

P20 PSINTCRNDC 1 439+1 

r22 FORD=1TOP 


IFES<>"@"GOTOPES 
IF2=860TOF S64 
POKE1L929-2, 32 
> POKELSS9-2, 439: 2=2+448 
>, IFI929-2-KS>EGOTOFSS 
IF 1929-2-N3>=8 GOTOSSG 
IFZ>F6G8 THEN BR="""POKELS29-2, 32: 2=08 


MEX TIN 
RETURH 
IFA#="A" THEN GOSUBF AA 
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IFEB#="G"THEN GOSUBPES 

GETZ#: IF2Zf=""THEMRETURH 

IF2#="A" THENAS="A" : GOSUBT EGE : RETURH 
IF2#=""THEHBS="4" : GOSUBP EGG: RETURH 
RETURN 

REM TARGET HIT 

PRIMT "#444 Ss ee)" | GOSUB?A 


AS="1"ASSAS+1:Y=O:S=1:GOSUE 7aaq 
PRINT" ‘ROHN ea 

PRINTS" -PRINTTABCS9;"SCORE =";AS 
IFAS=21THEN N=9:GOTOLeRa 

RETLURM 

PRINT ace em EEE AEM) 5° GOSUIETA 


Mmmm Ly 


E#="1"° BS=BS+1:2=8:S=1 : GOSUET aaa 
PRINT" Pea aoe! ie: 

PRIHT' SS" PRIHMTTABCS49; "SCORE =" BS 
IFBS=21 THEM N=24:G0TO1888 

i RETURH 

an PRINT" Sim" ; 

i FORT=17T018 

> PRINTTAECN) "WINNER": : TS=TI 
IFTI-T9<S8GOTO1S1S 

> PRINTTABCH) : “MMR RIS I MHER "| 


LO UOT LG LG Ub LO LL Ti oo oo ooo oo 
{TA Bo ha Pap Ae 3 fhe 


i" 


rere DO ces 


a a ae ee ee 
iT my Te 
mons oc 


1820 HERTI 
18235 PRINT 
1636 GOTO 


TEAR Yrh4296  M=54276 AS84277 HE S42r73 > Laide 


Peel FOR M=15 TO @ STEP-1:POKEY.M:FOKEQ, 12 
9: POKEA, 15: POKEH, 44: POREL. 206 :HEXT 
Fae? POKEQ. &:POKE ALA 

YHG? RETURH 
ARS POKESS467. 16:POKESS466, 15:POKES9464, 2 
Ha: TI=TI 
FHLB IFTI-TS<3ecoTore1g 

YHiS RETURM 
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Wordgame 


This program is another version of the popular 
Hangman game, in which you have to guess the word 
the computer has chosen. 


Everytime you guess a wrong letter, you get a step 
closer to the gallows. 


You can select the subject of which you wish to 
guess a word. The subjects are : 


Computer 
Sport 

Car 
Countries 
Miscellaneous 


1@@ REM eae ©HANGMAN 0 eae 
11@ REM BY 38 ELCOMP 4k# 
115 POKES3281.1:POKES329@,2 
138 PRINT "COStetetetetete" 


14@ PRINT" pices abel x 
15@ PRINT" | HANGMAN! I" 
16@ PRINT" ET ES 


17@ FORX=1TO28@G : NEXTX 

39@ INPUT" SlateieleI) ENTER YOUR MAME "> NM&: NME 
=LEFTSCNM$, 9) 

40@ TIM HM#¢(S>.TN$¢6. 4), PRECL?> 

418 FOR I=1 TO S:READ HM$#¢1>: NEXT 

428 FOR I=1 TQ 6: FOR J=1 TO 4 

43@ READ TD#¢1,J>:NEXT: NEXT 

$40 ‘A¢="SUG08I" : BS=" EEE Eee el 

458 PRINT"CINSELECT OWE OF THESE SUBJECTS : " 
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+68 
478 
458 


CT#¢1>="COMPUTER" :CT#¢29="SPORT" 
CT#¢(3)="CAR" :CT$¢4)="COUNTRIES" 
CT$¢S)="MISCELLANEOQUS" 

FOR A=1 TO S:PRINTA;". "3CT#CAD: NEXT 
PRINT" «IM YOUR CHOICE "+NM$; 

INPUT C 

IF C<1 OR COS OR CKD>INTCABSCC)> GOTO 4 


PRINT" MI THINK OF A WORD..." 

TT=TI 

FOR I=@ TO (C-1)#20+INTCRNDC1)#20) 
READ WD: NEXT 

IF TI-TT<126 GOTO 57a 

LM¢= wo. PRs= on: LG#= a 

FORI=1 TO LENCWDS) 

IF MIDS(WDS,1,19=" " THEN PR#CID="_":P 


RS=PRES" ": GOTO 628 


PREC I)="-": PRE=PRE+"—" 

NEXT I 

VP=17 :HP=0:M=@ 

PRINT "<I" j 

FOR I=1 TO 16:PRINT"M"; :NEXT 

FOR I=1 TO @:PRINT:PRINTHM$<1); :NEXT 
FOR I=1 TO 7 


>86 PRINT" S THI TH; : eel? PRINT"S@"; 


A PRINT"A HH # a 


PRINTS"; TABC349; "cen SM | SO a Y 


FOR I=1 TO 23:PRINT"MI@ MM"; :NEXT 
PRINT" MS 2" ; 


A PUKE 2022,96:PRINT"S" 


FOR I=1 TO 19:PRINT"®"; > NEXT 
PRINTSPC¢C16)9; "WRONG =" 

PRINT TABCG2323 ry 

PRINT" Stetetetel" 5 PR 

FOR I=1 TO 15:PRINT"M"; :NEXT 
INPUT " Siatetelelet? LETTER aaa 


220 FOR I=1 TO 20 


846 IF I/2=INTCI“2>THEN PRINT" S"; 
S56 PRINT"1 LETTER OMLY. "3 NM$; "Ty" 
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866 FOR J=1 TO S@:NEXT 

8r°@ NEXT I: GOTO sea 

Se@ GE=LEFT#(GF,1> 

398 IF G$>="A" AND G$<="2" GOTO 95a 

360 PRINT"'TTT!":FOR I=1 TO 2@ 

S1@ IF I/2=INTCI~29THEN PRINT" S"; 

32@ PRINT"ONE LETTER !!"" 

938 FOR J=1 TO S@:NEXT 

94@ NEXT I: GOTO See 

356 FOR I=1 TQ LENCLG#> 

968 IF G#=MIDS¢(LG$,1.1> GOTO 98a 

97@ NEXT I: GOTO 1648 

386 PRINT"'TYYy" 

396 FOR I=1 TQ 2@ 

1868 IF I/’2=INTCI/2) THEN PRINT"A"; 
1@1@ PRINT"ALREADY GUESSED !7" 

162@ FOR J=1 TO 5S@:NEXT 

183@ NEXT I:GOTO 86a 

164@ PRINT"'T) 
1@5@ F= 

1@6@ FOR I=1 TO LENCWD#) 

1878 IF G$=MIDSCWD$,1,1>2 THEN PR#¢1>=G¢:F= 1 
1@8@ NEXT I 

1698 IF F=@ GOTO 1544 

11@@ LG$=LG#+G# 

1116 PR$="" 

112@ FOR I=1 TQ LENCWDS> 

113@ PR#=PR#+PR$C1> 

1148 NEXT I 

1150 PRINT" Siete" | PRE 

116@ PRINT" a 
117@ FOR I=1 TO 2@ 

1180 IF I/*2=INT¢I/2) THEN PRINT"S"; 
119@ PRINT"VERY GOOD, "+NM$+" 15)" 
1286 FOR J=1 TO S5@: NEXT 

1216 NEXT. I 

122@ IF PR#=WD¢ GOTO 1368 

1230 PRINT" SeMeetIMGUESS THE WORD " 
124@ INPUT Gt 

1250 IF LEFTS¢(G#,1><"A" OR LEFT#¢(G#, 1)>"2" 
THEN PRINT"'T) ": "3168 

1266 G#=LEFT#( GF. LENCWND#) > 

1276 IF G#=WDs GOTO 1364 
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1520 


PRINT " SOMtatetetete] pi 
FOR I=1 TQ 2@ 
IF I*2=INTCI“2> THEM PRINT"®"; 


A PRINT"I“M SORR'Y, "+NMS+"")" 


FOR J=1 TO 5@:NEXT 

NEXT I 

PRINT " SPeleteleteletete) “ 
GOTQ 8aa 

PRINT "CISPR PRR RRR RR" | 
FOR I=1 TO 14 

PRINT"@ @ @ #@ @ @ "+B; 

PRINT" o"+BS; 

PRIHT"@ ‘OU WIN! "+B; 

PRINT" o"+BS; 

PRIHT"@ @¢ @ @ @ @ "+B; 

PRINT" TYITT"; 

PRINT" @ @ @ @ @ @"+B#; 

PRINT" "+ BS ; 

PRINT" @ 2y'0U WIN) ort BS i 
PRINT" "+BS 5 

PRIHT" © @ @ @ @ #"+B¢; 
PRINT''YYIT"; 

NEXT I 

PRINT: PRINT" Mise) AMOTHER GAME ¢'/ND 


"+NME 5 


1538 
1544 
155@ 
1568 
1576 
18a 
1596 
1688 
1618 


1628 
1638 
1648 
1658 
1668 
1670 
1686 
16398 
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GOTO 21768 

PRIMT " SfeTetetatete] a 
FOR I=1 TO 28 

IF I*2=INTCI “29 THEN PRINT" @"; 
PRIMNT"THAT WAS. BAD “+NM#+" 1T)" 

FOR J=1 TO S@:NEXT 

NEXT I 

LGS=LG$+G6 : LMS=LME+GF 

PRINT"S!": FOR I=1 TO 21:PRINT"®"; ‘NEXT 


PRINT" 'TRRRRRRPRRRORPR RR PRRORPBI" | LMS 
M=M+1 

IF M=9 GOTO 1868 

FOR I=1 TO 2:VP=¥P-1:PRINT"S"; 

FOR J=2 TO VP: PRINT" MM": >NEXT 

IF WP=1 THEN FRINT"')"; 
PRIHMTSPCCHP+19+"N"; 

FOR J=1 TO 8 


A PRINT" SI" +HM$¢J>+" 0" | 


NEXT J:PRINT"® "S*NEXT I 
FOR I=1 TO 4:HP=HP+1:PRINT"3"; 
FOR J=2 TO YP: PRINT"M"; >NEXT 
IF VP=1 THENPRINT"')"; 
PRIMNTSPCCHP)+" HI"; 

FOR J=1 Ta & 

PRINT" "+HM$¢J>+"E0RRMI" | 

NEXT J 

NEXT I 


IF MCS GOTO gaa 


PRINT"S3"5 SPCCHP> ; 
FOR I=1 TQ 8 
PRINT" "“+HM$¢ 13+" SSR RSMI" ; 
NEXT I 

GoTasEea 

PRINT " SHeeDeDeteeteretel" | TABC 34>; 
FOR I=1 TO 6 

FOR J=1 TO 4 
PRINTTDS¢C1. J9+A¥; 
NEXT J 

PRINT’ TIT"; 

HEXT I 
PRINT" Siete" ; SPC C34); 
FORI=1 TO 16 
PRINT" F "GS 

FOR J=3 To 8 

PRINT AS+HM$¢J>; 
NEXT J 

PRINT" 'YYITIT SSMBI" ; 
NEXT I 

FOR I=1 TO 200@:NEXT 
PRINT" TY"; 

PRINT" SP “+A; 
PRINT" R I"+A#; 
PRINT" @ I+ ["+A$; 
PRINT"S P| I'+A$; 
PRINT"ES IM "+A; ; 
PRINT" If "+A; 
PRINT" Il @ "+A; 
PRINT" 19 @ "3 

FOR I=1 TO S@G@:NEXT 
PRINT" CIeeIeITHE WORD WAS :" 
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FOVTFTTTVTHGTOTOVTTOTOTTVUETOGOAATAUUTRTIGNGTLUAUTGLAUGHEHOUATAUGTTVUGU SETA UAGO UHL EAU LULL EAUUU LUAU UTA AT 


2130 
2140 


PRINT" ORRRRRRRRRPRIA" +1DF 
PRIMT" Mielaie] BETTER LUCK NEXT TIME, "3N 


Mes,"rrr" 


2150 
2168 
21708 


PRINT" Asie] AGAIN ¢Y/ND " 
GOTO 2174 
INFUT Q$:IF LEFT$¢Q#,1>="N" THEN PRIN 


T"MSTHANKS FOR THE GAME !!":GOTO 2858 


2180 
2198 
2208 
2218 
2220 
2238 
2240 
2250 
2260 
2278 
2280 
2290 
2388 
2318 
2320 
2338 
23468 


RESTORE 

FOR I=1 TO 32:READ WD: NEXT 
GOTO 456 
Meteo 
DATA" Vv " 
DATA"? “=” 
DATA"a!| | a" 
DATA" | | a" 
DATA" Ais " 
DATA" Ais" 
DATA" ad |" 


DATA" ——_" 

DATA" " | 
DATA" " | 
DATA " " | 
DATA" " 

Dare: Sy," 

DATA" —" 

DATA" =" 

DATA"S" 

DATA" \ " 

DATA" \" 

DATA " " 

DATA") 

DATA" |" 

DATA" | " 

DATA" I" 

DATA") =" 

DATA"! " 

DATA"! =" 

DATA" |" 

DATA") =" 

DATA"! " 

DATA") " 

DATA"! 

DATA CPU, ELCOMP, RAM, DISK, BYTE, PRINTER 


AUUALAUUUUATANAAANHAHUNLUUUNI 


1 SINGAPORE, JAPAN. INDIA, CANADA 


INNATE 


"DATA". TERMINAL, DISK 

ROM .CHIF.KE‘'BOARD 

INPUT, MODEM, RS232 
SUBROUTINE. PLOTTER 
SUBSCRIPT, BUS, PERIPHERALS 
TRACTOR 

VALENZUELA. FOOTBALL. BASKETBALL 
STADIUM, RUGBY, GOAL, SKI 

POLO. VOLLEYBALL 
ADIDAS, RUN, CHESS 

JUMP. SWIMMING 

CARRACE. HORSE, RIDE 

WALK, MOUNTAINEERING 

CYCLING 
PORSCHE. VOLVO. VOLKSWAGEN 
DAIMLER, BMW.LOTUS, TRIUMPH 
FIAT, ROLLSROYCE, Vi. OPEL 
TEMPO, SUBARU. FORD, CAPRI 
BUGGY. HONDA. MAZDA 

BUGATTI. FERRARI 

LISSR. AMERICA, FRANCE. SPAIN 
BRYARIA, GERMANY. RUSSTA, ITALY 
GREECE. AEGY'PT, RHODESIA, CHILE 


GDR. UGANDA, YUGOSLAY IA, HONGKONG 
PI2Z2A,ELCOMP, DINNER 

TALK, ELCOMP, MRHOGANY’. THING 
BREAD, LAZY. EYE,RIM 
VILLAGE, MUG, BEAST. ALMOND, MAY 
SENDER, EXAMPLE. KING 

SPHYMX 
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Shooting 
Gallery 


This is an enjoyable shooting game with sound. A 
firing base moves up and down on the left side of 
the screen. On the right side is a wall with up to 
three holes. If you hit a hole you get 100 points. 
If you miss the hole then 10 points will be 
subtracted from your. score. One game is five 


rounds. At the end of the game the total score is 
displayed. 


=, 
a! 


166 REM SHOOTING GALER'' 
116 FEM ELCOMP PUBLISHING THC, 
TSA PORESSSS1,1:FPORES3S°9a, 2 
6G CLF 
eae DIM 2cas3 
220 FRIWT "Cyerate SSHOOTING GALER 
eon PRINT WeePPRESS KEY 1 TO FIRE 
248 PRINT" Bieler PRESS AMY KEY To STA 
er 
S50 GETOF: [Fot=""GoOTOSSa 
eb PRINT" 
27R AFCho=" UieleelTT Mr" 
SEA ASC i s=" ee ETT 
230 D#cas="" 
A 


li¢¢2 a=" " 


SHS PRINTCHRE< 1449 

SiG GE(G.="F":GFc1)=" " 
S30 PRINT" s1" 

S40 T=T+S 
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PTITITITTTTTTITITTTTTTTTTTTTTTTTTTTTTTTITITTT TTT TTT Terri TTTTT TTT PTT TIT TT TTT iri rii iin ti tiiitr titi rir rit 


k 

F 

IFR=S6 a4 G3 

FORI= =aT0 22: PRINT" "l2¢T)=8: NEXT 
4 FO 


1 ZCINTERNDCL #1942991 
NEXT 
PRINT "sa" 
FORI=1TO21 
440 PRINTTAB(37) iG8(Z¢I>) 
456 MEXT 
460 PRINT" sROUNDS aCOUMT ss 
SCORE" 
470 PRINT" eet + 12 | 
E ? 
PRINT" 


fe 2 da fe fe hh ho hd 
Ro Pe ees ho do 
Rox iice oS Che ey ee Ty 


aS 


em eee 


<< 
Th i, 


f2 
2m a 


PRINT "<3" 

K=1 
K=ABSCR-Lo:8=1 
I=1 

PRIHTASC KD 

GET AF 
IFA#="1"THEMGOSUBE4E 
IFC=8G0TOS38 
I= I+] 
IFI=19G07T0516 
GoTOSsa 


YEEdO96 O=54276 AS54277 ‘H=54273 : L=5427 


i Py oe od Pee i 
Dac RCA ROS CL CL UB 


a 
a! 

me] 
a3 


f 
t 


BES FOR M=15 TO @ STEP -1:POKEY.M:POKEG. 12 
-POREA. 15: FPOKEH, 44: fas HEST 

-18 FOKE @,8:POKEA, 6 

2A RETURH 

B46 PRIHT "ike" | 

65a Y= 

IFE=8THENM=I+2: G0OTOES 

i=l] 

IF2¢hoSeTHEHs'=38 

PRINTS! @"; 

Se oe he ‘+4 

IFe<Sy'GOTOG Sa 

IFH=S67HEM PRINTS W's  GOSUBEEa: GOTO S46 


“re 
i 
a. 
i 


hf Ab oie 84 6 


et, 


ea 
Mm mt 


ot 
(ay Sy ay 


jee) 
ee) 


(C0000 


ZEW I=ZE b+ 

1 FOR T=1 Tod 

PRINT" SMO ; 

L=Sd272 H=S4273:VeidS96 ASS4ar? O=s427 


a ae ee 
iT 


Mf fe 3 


FOKEW. TS: POKREQ, 2: POKER. 14 
FOR M=a) TO Lee: POEL M: POKEH. MM oHEST 


=f red 


mo im 


ny 7] 


SA PRINT" ee" | 
SAR POKE Ya: POKEA, & 
Si@ REM FORM=1 T0260: HEMT 
See WEST 
BSE B=5+130 
S48 S=S-Sae aoa} 
BO6 REM PORESS4Se7. 8 
SEO SHf-S0WeLa 
Sra C=C-1 

Sa FORTJ=17T023-l 

38 PRIHT 


oe 
a! 


MEST 

IFS. THEHS=8 

SE=STRECSIOCESSTRECCS 

Bparenaes Lo." GM (CEs TARC SS RIGHTS 


haf.y ees 


mn 


Q 
- 


PRINT" = 

FORJ=1 70M: PRINT "8" 5 MENT 

PRINT "@MI" ; DECRE—¥ 9 ; 

IF Ree SeG0TO1E10 

VES4296  Q=Sd2r6  ASSda7r  H=S42erS:L=s427 


OE Ey Tar eT ee et 


oo —J 1 oy 


FOKE Wo1S:POKE @.17:FOKE A.15 
Pos M= 180 TO S STEF-2:POKEH,48:POKE L, 


a he: to pst tptip in itl iin mn 
oe 
a 


B00 FOR M=PS TO S STEP-2:FPOKE H.48:POREL 
ofl NET 

1818 POKEQ: a 

1820 N=1: PRINT" OE farm" 

1838 RETURM 

1846 PRINT"TI" 

1656 REM PORESS467. 16 

Lare8 PRINT" Bteta)" 

1HSe FOR T=1 TO 

1898 PRIMTTABCL io; "** GAME IS OVER" 


89 


THTTTPTTTTTT TTT PTET Terrier errr PPTTTTITITETTTTTTTTITTTTTTTTTTTTTTT TTT TTT TTT TTT TTT TTT Tray PITITITITITTITTTTTTTTTTTTTTTT TTT TITTTTTTTTT TIT TTT TTT TTT Try PITTI TTT Tree 


Ere Leaders HeS4ers VeS4eoe  ABS4err  O=542 


‘ 10 POREV. 15: POREGQ. 17: POKER, 4 

1i26 FOR M=2 TOLSe STEP RHIC 1 9#15:POKEL.M: 
POKEH » M: NET 

1138 PRIMTTABCL19;"S4GANE IS OVERe=ry" 

114@ POKEY. 8: PORE AL& 

1158 Ret 

116@ REM 

1178 MEST 

1188 PRINT: PRIHT 


‘1138 FORH=1 7039: PRINT"; -HEXT > PRIMT 


1266 REM FOKESS467.4:POKESS466, 4 
1218 PRINT" Melee ou HAD 4@ SHOTS AT 4 AIMS" 


1228 PRINT" MTOQTAL SCORE IS : ";T 
1276 IMPUT"AGAIW cYeNo "SAF 

128@ IF A¢= "4'"THEH16@ 

12398 PRINT" MBE EYE !": END 
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Reversi 


This game is played on an 8x8 field. In the 
beginning there are 4 stones on the playfield. Try 
to place new stones so that they surround the 
computer's stone, either horizontal, vertical, or 
diagonal. If you surround the computer's stones, 
they are converted into your color. The winner is 
the one with the most stones when the whole 
playfield is filled with stones. 


118 DHS=" Selelelelererelerelele rate relerere rere re)" 
128 FORI=17TO039:Ef=E¢+" "<MEMT 
138 FORT=17T0S9:ES=Es+"N": NES #5 
146 POKESS2S1,1°PORES325@. 5 
158 RE="IDDADODAERPPEREPODEOENDDEBEDDHD OER 
a DIMAS. 9), Seperate 
: PRINT" CIaTN: TRUCTIOWS ¢ oh oH, 
INFUT ## 


IF LEFT#¢X#, 1)="H"THENAS 
A PRINT"C"NAE" THIS GAME 1S 
x 8 FIELD" 


a 


PLAYED OM AM 


hah ee ee 
oe 8 Ty 
a is i a im 


2eG PRIHT"ROWS 81M THRU Seam AWD COLUMWS A 
THRU I" 

ech PREINT"IM THE BEGIMHIMG THEPE ARE 4+ STO 

mec 

240 PRINT"IH THE CENTER OF THE FLAYFIELD" 

2o8 PRIHT"TRHY TO PLACE HEM STONES SO THAT 
4 ik 

ee@ PRINT" INCLUDES My STOMES. HORISGONTAL, 
ERTICAL." 


eee PRINT"OR DIAGONAL. THE’ BECOME “OUR ST 
QHES" 
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220 PRINT"IF, LIKE IN THIS EXAMPLE 

298 PRINT’ = ——+-—+-—+—+—+—_" 

208 PRINT" Leo.) 0 | 6 

S18 PRINT’ =§ ——-—+—+—+—+—_" 

220 PRINT"VOU CONVERT THE WHITE STONES INT 
qm i" 

330 PRINT"ELACK ONES OR VICE VERSA. " 

B4Q eT 1: J=1: PRINT" SAceedeteTeceletee et” ; 

B5Q 1F¢TI-12>12QaTHENZ98 

S60 IF J=1THENPRINT@M" ; -GOTOSS0 

27@ PRINT" AD; 

SEQ J=-1#7:FORK=170159 NEXT : GOTOSSE 

290 PRINT" SMMC @ | @ | @ |e | @ 
408 PRINT"ENTER A NUMBER FOR A ROW AND AL 
ETTER" 

414 PRINT"FOR A COLUMN, SEPARATED BY A COM 
MAN 

420 PRINT"AT LEAST ONE STONE HAS TO BE CON 
VERTED" 

430 PRINT"IF THIS IS NOT POSSIBLE ENTER #2 
7 A" 

448 PRINT"TO PASS" 

47a F2=0 

G8 PRINT"SHOULD I TRY HARD YN) "3 

98 S2=0 

INPLITN$ 

IFLEFT#(N#, 19="N"THENS3O 


tol ie ee 


wpe 


Tig¢B+19="0" 
D$¢G+ioa=" " 
UFéCH+13="@" 
FORK=17O3 
READIA CK). T4ck) 
NENT 

FORI=87TO9: FORJ=8TOS 
Act, J3=6 

tH EXT mi | ’ I 

Atd. 4do=}4 

ACS. 595k 

Ard, S928 

ACS. 4028 


Mmm Tam TULA enna he 


7 LE fe Pe Ee oT Pt 
DACA BM RO RCE BCE AE ER 


© 
Le) 


Berd Cil=2:Hi=C1:His4:2=6 
(658 PRINT'IO VOW WANT BLACE OR WHITE 
B20 C=lW:H=B 
TRG IWPUTSE 
P18 IFLEFT#CMs, 19= "MH" THEMP Se 
Fee C=B:H=l 


Foo FRINT"DOO YOU WANT TO START "; 
P48 IMPUTES 

roe PRINT" 203 

rra TFLEFT# Cs ($. 19="9"THEH11408 

SA PRINTOWE;ES"I°M THIMKIHG 1" 
foo Bie=-1:13=0: J3=8:T1=C: T2=H 
Baa “pi he peated aging bana 

S18 IF hel <SATHENSSa 


8348 IFFi= OTHENSSG 

B48 L=-1 

S58 GOSUBLS1a 

SEQ ITFS1=S8THENe5e 

Bra TF¢l-124c¢]-85<>87THEMS9e 
BeoO $1=$1+52 

BIG [Fe J-134¢ 7-85 <> >8THEMS1G 
SHO S1=S1i+52 

918 IFSi< Bi THEMS5a 

920 IFS1>B17HENS44 

S30 IFRMIC 1228, STHEHSSa 

O40 Bi=S51:13=1: ie 3=.J 

Sa WHEXTI. I 

S68 IFRI>STHENIAIG 

97G@ PRINTOMS"N"EF"T PASS | SOUR TURK" 
QQ [F2=1THEMI494 

990 2 #1 


1610 F=f 


T33.19"@ A" CHRE( T3+645 
1836 GoOSUBS444 

meq [=12:.J=J3°U=1 
1858 GOSUELS14 

POEG Ci=C1i+Si+1 

1O7@ H1i=H1i-51 


thal 


CBs 


1G26 PRINTONS"M"ES"T GO TO S"RIGHTECSTRE’ 


93 


See oo 


A fe 3 fe 
TT To 


be ee Pe IT IE 


I el ed ed 


1138 
1268 
1218 


1228 2= 


1238 
1248 
12568 


Ni=Ni+1 

PRINTINS"MN"ES"I GET "5 

PRINTS 1; 

PRINT" OF YOUR STONES" 

GOSUBZ160 

IFH1=GO0RN1=64THEN1 490 

TI=H: T2=C 

PRINTINS;E¢"1T°S YOUR TURN -- sROWM 2 


4 GOSUBS328 


IF I<>8THEN124@ 
PRIHTIN#;E¢"D0 YOU WANT TO PASS ¢t'"M> 


IMPUTH SE 

IFLEFT#¢x#. 12<3 "7" THEN1 158 
IF2=17THEN1498 

1 

BOTOFP Sa 

IF ACT, J3=BTHEM127°e8 

PRINTIMS"M"ES"I°M SORRY. OCCUPIED, TR 


Y AGAIN !" 


1240 


GOTO, SASea 

GOSUBL S36 

IFF1=1THEN1314 

PRIHMTOME"M"ES"HOT RIGHT HEXT TO MY ST 
ee 

GOTOLS5a 

=-1 

GOSUBL 316 


IFSIS8THEHIS7@- 
PRINTINS"N"EF"THIS IS HOT ACCORDING T 


0 RULES)" 


1358 
1368 
1378 
1388 
1336 
1468 
1418 
1428 
1438 
1444 
1454 
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PRIHTES 

G0T01158 

Sf 

PRIMTINE "EF" YOU GET "; 
PRIHTS1; 

PRINT" OF Mt STOHES" :FRINTES 
=] 

GOSUELS 1A 

H1=H1i+51+1 

Cil=C1-81 

Hi=Hitd 


1466 bOSUBS168 
1476 IFC1=80RH1=64THEH1498 

1466 GoTOrS6 

1498 FPRINTONS ES: PRIHTES: PRINTES 
1566 FRIHTONS;EF"SOU HAVE "Hi" PIECES" 
15186 PRIHT"I HAVE "Ci"PIECES" 

1326 IFHi=CiTHENI Sea 

1538 IFHiSCiTHENISea 

1548 PRINT"I WON ft" 

1558 GOTOISoa 

1560 PRINT"NOT EASY !'" 

1576 GOTOIF7a 

ISS8 FRIHT"SOUR VICTORY '" 

Poo8 Ci=C1—-H1 

16088 IFC1i>8THEN1i626 

1616 Ci=-cCi 

1628 C1i=(e64d#C13/N1 

1636 PRINT"THIS WAS "; 

1648 IFC1<117HEN1 76a 

1658 IFCI<S5THENI?44 

16686 IFCicS93THEM1 728 

1678 IFCI<S37THEN1I Fae 

1686 PRINHT"A GOOD GAME." 

1698 GOTOLP?aA 

1766 PRINT" TOO SIMPLE." 

1716 GOTOLT Ta 

1728 PRINT"A FIGHT" 

1736 GOTOLT TS 

1748 PRIHT"A HOT GAME" 

GOTO Fa 
PRIHT"A RACE |" 

PRIWT 

PRINT" AGAIM cY'Ho "5 
IHFPLUTH 

IFLEFT#¢x?,.19="9" THENHEBE 
PRIHT" THAHKS FOR THE GAME. " 
STOF 

Fi=8 

FORIi=-17TO4 

FOR Ji=-1T01 

‘IFAC T4+11.34+J319=TeTHEH1 e368 
NES TI1 371 

RET LUE 


2 Nay DD OM Ht 


=, 
is! 


— es ps ps Gs Es Ep PF OF 


09 00 00 00 co 09 0 OO 00 ~~ I~ 


MT LN Aho Poe io oo do 


Fi=i 
RETURH 
51=8 
FORK =1 703 
T5=I4ek> 
Ts=J40kK) 


. Te THEM 14a 


Ra Lo i ao a a a a a eo 


IFACIE&» J6)= TITHEHZ@S8 

IFACTE. J69=8 THENZ144 

GOTOSSa 

Sl=51+53 

IFS 1 THEMZ148 

Ié=[ 

Jes 

FORE L=8TOS3 

Aclé. J69=T I 

Té=[6+15 

2128 J6=Je+I5 

2138 MEATK IL 

2148 MEATE 

2158 RETURN 

Z216Q PRINT'S"TABCSO" "Ss FORTI=1TOLEWCHASS : 

PRINTMIDECHA£. I. 1" "SOMEST > PRIMT 

2ive PRIHT" ® A (: Sara, 0 a F G 
H " rs 

e1s@ PRINT" sar i caren, anata Deas ale a aM 


FORI=1 70) 

PRINTIN | "5 

FoRI=1 708 

PRINTISCACT. T3419" 10"; 

HENT.I 

PRINT 

IFISSSTHENPRINT" 99 -——-——+—+- ++ 


mI 
Mit mom Mem ms mo me 
mH 
7 
= Bi 
eH 
7 
Ly 
or 


Pm 
mime me my 


=, 
ai Was 


3 


a fey Pole Pele Pale fale face fuk Poe fag Pe Pea Pe ee ee ee ee Ph 


me 
Rem t J Oe Phe loo Oo eo fe i 


a i 


Paes] HEX ae 
aera PRINT" an ee RAR 81 Cou 1 a 
1 yu 


2258 RETURH 
e236 EMD 
2304 REM SUBROUTINE IMPUT 
23 18 PRINTDMES"N"ES"WROMG; TRY AGAIH." 
@o2e8 T=-1:J=-1:K=1 
2338 GETH$: IFR#<>""THENZS29@ 
2348 IFK=1THENPRINT" Sal"; :GOTOS268 
2358 PRIMT" W"; 
@g68 K=-14K 
2378 FORL=1 T0288: NEXT 
2336 GOTOS338 
2398 G=ASCENS) 
2400 IF4r<GANDG<S8THENI=G-48: PRINT" A" ss" 


2410 IF64<GANDG<. 74 THEN J=G6-64 PRINT" Sm 


2420 IFI« “3-1 ANDIC>- 1 THENRETURN 
2438 GOTOS33e 
e44@ REM BLINKING 
245a Dee Terres eemney LEFT#« RE. 4 
mao 1>+5 
2468 K=1: it A: SF=DFECC+19 . 
2478 IFK=1THENPRIHTS# "a"; -GOTO2498 
2436 PRINT" BI"; 
2498 K=-1#K 
2508 FORL=1 T0200: NEXT 
2518 IFM>STHEHRETURH 
2528 M=M+1:GOTO247a 
.° DATA @.1.-t.1.-1,8,-1.-1:8.-1,1.-1:1, 
mo 1 
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NOTES 


Titeaniae 


Biorhythm 


This program calculates your physical, emotional, 
and intellectual condition, as well as the average 
of these three, for any given day or month. 


@ REM BIORHYTHM FOR C-64 
GG DIMMSCR1? 
DIMM#¢ 12) 
M#¢1>=" JAH" 
MN$¢23="FER" 
M$¢39="MAR" 
M$¢do="APR" 
MeCS3="MAY" 
M#06 =" UN" 
Met he ES 
MeeS9="AUG" 
N$¢93="SEP" 
M$c189="0CT" 
M#e119="NOv" 
M$c12.="DEC" 
Di=zen'23 


PRINT" 

PRINT" BEMTER BIRTHDAY CMM. DD. yo" 
PRINT: IMPUT M2.T1.J3 

I FIS> L@QTHEHI 3=J3-1988 

TF IS<1 THEME Aaa 

IEM2212 “THENGOSUBGE3E: GOTORLE 

FORQ= 17TOMe: READIN : HESTO 
IFTI2S87HEHGOSUBEGSA: GOTOS1a 

IFM2= °THENIFT 1 s2STHENII= J3: GOSUBEAPA: I 
EFL - 1THEHFL=8: GOTOS18 


SE ON ne ere ee et ee ee 


v4 Vane SaIgSe oo oIm Oho SOAS 


t 
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soa N1i=X-T1 
S36 GOSUBSEAG . 
S44 READY 
=41 READE: E=E-¢ LAND? JS-INT¢ I3.4584¢>00 9 
242 READ 
=43 REALT 
S44 READY 
S45 READ 
S46 READI 
S47 READTO 
S45 REALP 
S49 READA 
SS@ READS 
S6G FL=H1ith+E+R+7T +7 +Ul+1+04+F+A+s 
S62 RESTORE 
B31 READLD 
B32 READ 
633 READG 
B24 REAL 
635 REALL 
B26 READK 
B27 REALL 
B38 READM 
639 REAL 
646 READE 
641 READY 
So L1=D+F+G+H+I+K+L+h+Hn+E+!/ 
@ Pi=C3-J3-1 
@ Pi=P1#265. 25 
4 IF J#="Di" THEN4e08 
8 AL=.25 
@ GI=IHTCAI+F1+P14+L1> 
5 GOTOseaa 
ri PRINT" SIBIORHYTHM FOR A DAY OR A MONTH 
CDMo" 
ree INPUT IS 
res IF J#="D" THEN? Pe 
P38 IF J#="M" THEN? 44 
25 PRINT" COMM RONG INPUT !":GoTO?1a8 
40 PRINT" @WHEN SHOULT I START ? MONTH, ¥ ‘EAR 
r45 PRINT: IHPUT €1.C3 
Fou IFCS>1Q6THENCS=C3-1908 
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md J) Ty oy 
Gaim to 05 —) 0 


pot 


hi 


ba? fie fies ea’ a ds 
~) Ty CA A A 


2D oo oy UP 


= ~~) ~J ~J 


IFCASLETHEMGOSUBESSE: GOTO 4a 
IF J3S>C0237HEN61 68 
IFIJ3S=C3THEHF Se 

GOTOSAGa 

IFM2>C1THEH6 188 

GOTORAAG 


PRINT: IMPUT"MOMTH, DAY. YEAR'S C1,C2,C3 


IFCIS1iSTHEHGOSUBBESA: GOTOr Fe 
IFCS216GTHEHCS=C3—- 1988 

IFW: ATHEHE 1 Ge 

IF J3=CSTHEHF Se 

GOTOSARA 

TFM2=>C i THEN SS 

GOTOsSaaA 

IFT1° *C2THENG 168 


J4= 73 34196 A 
PRINT" 

PRINT" S@=PHY'S ICAL" 
PRINT" SERENOT TOMAL” 
PRINT" SI@=INTELLECTUAL" 
PRINT" A=AVERAGE" 


RESTORE : FORG=170C1:> READS: HEXTe: 


IM=¥—CLAMDCCE-INT (C34 #4 C389 9 
L=a 

GOSUESHOG 

T= 

L=L+1 

FORZZ=1T031:X$(Z29=" "= NEXT 

HSC1E9=" 1" 

WI=INTCISHSING (G1+L 401 +16) 
WOSINTCIS#SINC (G1+L4T2)+16) 
VO=INTCISHSING (G1+L 4089416) 
Wd=¢ WLtyesy eae 
ac at ae yo" See 
MeCv2)=" Sem" 

NSCvao=" aT 
Mech =A 
D=D+1 

IFDC¥+1 THEN1 398 
goTor aaa 


e. REM 


PRINTMECCLOs ""DTRBCS) 
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1458 FORJ=17031:PRINTS#$¢I95 >NEXTI 

1566 PRIHT 

1666 GOTO18e8 

2808 REM 

228 PRINT 

2A38 C4=C3+1900 

2E48 PRIHT"BIORHYTHM FOR "SM#cCios" "SC4 

2168 PRINT 

2165 PRINT" FOO MEDIUMS 
Enlent " 

166 PRINT 

136 D=1 

ae RETURH 

aG IFCI=2THEHE41 

1 IFC1=3THEH648 

42 IFCI=4THEMEs3 

3 IFCI=STHENS Se 

4 IFCi=6THENES7 

aS IFCL="THENG36 

IFCI=STHEHESS 

IFC1=STHEMEs4 

IFC1i=18THEMES3 

IFC1=11 THEME 32 

IFCi=12THEMG31 

2 IFC1=1THENGEO 

a GOTCES 1 

2000 READS : IFC2>e THEMGOSUBGS8 : GOTOR FS 

4681 IFCi=2THENIFC2: 

IFFL=1THENFL=0: GOTO??2 

4682 IFCIZSTHEMIFCS~INT (C34 2 #4<53@THEMLI=L 

A 

4803 L1I=Li+C2: IFCS<1G@QTHENCS=C3+1 900 

4064 Al=.25 

4685 Gl=INTCFI+Fi+LitAl > 

$686 PRINT" CIBIORHTHM FOR "i M#cCiosCe;C3 

4618 PRINT  MSNUMEER OF DAYS SINCE BIRTH".G 


cbt Pb fe Pea 


Ee eo arnt 


rh 


mS) oy 
ft 


= 
ts3 


rare Wy a is ee a She 
6 oo SJ oN 0 


AA aN | 


Qed Cp hal te ed ed ed 


3, 
ate 


“STHEHT J=C3 : GOSUBEATE : 


ze 


4615 PRINT 

4616 TL=SIMC2ereGl “eso 
SAL? YeaSINteer#Gl “So 
$813 VS=SINCSer#G1 333 
$O19 Ui=cey lei S+165 


4020 Ween cae 1 So4163 
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= CY SH15 3416) 
OFC1="SMEDIUMS 
c¢2)="sFOOR® ‘ 
O¢c39=" S500" i. 
Ti=1 
IFUL=<11THENT1=2 
IFU1=221THENTI=2 
T2= 

IFUZ=<1 1THENT2=2 
IFUZ=>21 THENT2=3 


pe _ 
i 


. 
ae 


4 Sb Oo ho he bo Ph fe Po 
ge oT oe Ea Ah 


es ae 
non 


mt EE 


mo mye 


ae oe, 
mat tat 


fms 
a! 


10) 
= 
= ts 


MoeCTNT Ct 
BoSclHT cy 3 

Pe IMT" eer it: 1S IC AL "SOFLT LION 
$845 PRINT Mee MOT TONFIL "VOECTS0 
4858 HAR bas og he “SORCT Sa Ie 
4054 ‘Ne eee eee Pee , 
4055 dae ede S416 
° T4=1 
SOS? ITFU4="11THEMT4=2 


BERELEREREEBAEBEREAHASE 


14 


—, 
—! 


tale Pag bes 


IFNZ=18THENMS49 
‘TFM2=11THEHS568 
IFM2=12THENSe2 
RETURKH 

PRIM)! o2" 
PRINT"HWROMG INPUT ! 
PRINT 


ce a ec ACN AC I 


Or OF a 


4058 FUd= 221 THEMT4=3 

S859 H4=C THT CYd#1 8669 9-1 aa 
4668 PRINT ARYERAGE "TOECT4o. 44 
4878 GOTOFRAR 

BAGG IFMS=1THEMS4e 

Beal IFNS=2THEHS4 i 

SANS IFMS=2THEHS42 

BeA4 IFMS=4THEMS42 

SaaS IFMZ=STHENS44 

SeG6 IFMS=ETHEMS43 

SAGy IFMS2=PTHEHS46 

Se IFM2=8THEHS4 ° 

sat 5 IFM2=2THEHS+42 

2) 

& 

6 

gy 


sy i) es ee a 


De a | 
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6616 PRINT"YEAR HAS TO BE FAST 1988 ! 

6626 GOTOS18 

EASA PRINT" CIMA EAR OML'Y HAS 12 MONTHS! !" 
44 PRINT: PRINT: PRINT: RETURH 


4 ; 
38 PRINT" CIM@RITHAT MONTH OWLY HAS"; >" DA 


S5 PRINT: PRINT: PRINT: RESTORE : RETURM 

PQ IFIJJ-INT¢II42%4=8THEHFL=6@ : RETURH 

73 PRINT’ COMRITHAT YEAR IS HOT A LEAPYEAR 
A 


My yy Oy 0 
o-— iy me ea mo 


PRINT: PRINT: PRINT: FL=1 : RESTORE: RETURN 


6188 REM 

6118 PRINT"s" 

6111 PRINT: PRIWT 

6115 PRINT" THE START DATE HAS TO BE FAST 
6116 PRINT 

6126 PRINT" THE BIRTH DATE! ! 

6121 GOTOF18 

YHGG PRINT" MSPRESS ANY KEY FOR NEW BIORHYT 


PH26 GETAS: IFAS=""THENFa2e 
FAS8 PRINT"S]" > RUN 

S860 DATA 31.29.31. 30.31, 38.31 
3016 DATA 31.38,31,38,31 


104 


Worldtime 


This program draws a worldmap and displays the 
time for several cities in different time zones. 
In addition to that, the position of the sun is 
shown, depending on the time of day and the season. 
The time has to be entered in the military form (0 
through 24). 


CITY#=" = PUBLIC DOMAIN" 

DOWNS? 

POKESS220, 1:POKES3S231.1:REM 64 

PRINT" @cieleleleeeeP RRP RRERRILEASE ENTER DAT 


OPEN1.3 
18 DIM TM¢12>: COHS=" NATTA Tae Lee eTeTA TATA TATA eT eee a) 


se lO Minh tpg 


1 PRINT: PRINT: PRINT"MONTH DA’ 
TEAR 
ei2 PRINT" | | | 
Po. PRINTS 3 Sees 
ork Sey Tf 
15 PRINT" 1h 
16 PRINT" 

1f PRINTSPCC?>: 

18 INPUTIT$ 

SQ POKES4296, 15: POKES4+273, 66: POKES427°S. 176 
:POKES4277> 12 

1OG PRINT" Tales ORE PRRPLEASE ENTER TI 
ME 


| 1 | 
ly <a 
| | r ’ 
114 


105 


114 


ECONT 


1268 
138 
1468 
158 
166 
17°@ 

pal 
185 
198 


23 


47 


PRINT:PRINT:PRINT"HOURS MINUTES $ 
IS 

PRINT" 1 | 
PRINT" | ———, 
PRINT’ “——— | 
PRINT" in 
PRINT" 
PRINTSPCC73 : 
INPUTLT$ 

GOSUIB 12000 
GOSUB1 1900 

GET B¢: IF Bf="" GOTO 225 

IF BE="C"THEN B=220000 : H=22 
IFES="0" THEN GOSUB11959 


Lat 
mnt. | 
5 ning? 
| 


1] 
II 
ble 
11d 


258 MX=B: T=VALCLT#2+E-DS#1G608 : IFT>248088T 
HENT=T-24 0088 
eon BS=B- 16888 

260 T$="GG0G08"+MIDScSTRECT, 29 

265 TIS=RIGHTS(T#.6) ' 

S68 MME=LEFTECIT#, 2): DDF=MIDSCIT$,. 3,29: 94¢ 


=RIGHTE#CIT#, 23 


218 


A DATA 31.28,31.3 


MM=VAL COMMS) > DD=VAL CIDE >: YY=VAL CYS 
IFMM=1 THEN394 

FORI=1TO12 

READ DM¢I> 

MEXTI 

IF Y4=INTC 49 THEM DMC 2)=29 

FOR I=1TOMM-1 

JD=JD+0M¢1> 

MEXTI 

JT=J0+00 


> 


.31,38 s3l, 31.38.31, 3G, 


IFMM=6THENG=1 1 

IF (MM=P720R¢MM=3> THENG=12 
IF (MM=S20R¢MM=4 > THEMQ=13 
IF ¢MM=S 9 0R¢(MM=3 > THENR=14 
IF <MM=16>.0R¢MM=2> THEN@=15 
IF ¢MM=11 0R¢MM=1 > THENG=16 
IF (MM=12) THENG=17 

IF ¢Q=68>THENSTOP 


Sage FRINT' 
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Ad PRINT" —__ ee 


S858 PRINT" a || MORLD TIMEm 
1 m5 


B68 PRINT"! | _) 14h (Eager aEoa roERRNNENT 
wmeraarenee — 
Sara PRINT" | @m = SUN Zo 
7 See 


Saa0 PRINT"! eon 
5090 PRINT| Wer ce 
S100 PRINT" ’ Lae 
5110 PRINT" ee! 4) tA 
“$120 PRINT" 4 é Se, 

5139 PRINT" het 4 

5149 PRINT"© ‘S71 r 

5158 PRINT" PHOM. mS ° PAM 


%, 


oe 
s168 PRIWT" igs? 4 
il 
aa PR ERE T A, bret cme ORS a Se] tee ae, oe 


Sieg PRINT" = | \ | hs 
Jil 
S199 PRINT" = | | ‘ SN 
a | * 
S200 PRINT" = \ A 7 ae 


\ 
S210 PRINT" be a | 
5220 | F R ae, ? ie gl i 


S230 PRINT" | 7 


fon 


S240 PRINT" LY ¥ 


ot 
: 


oe > 
S388 PRINT " PSteeDeTedededeIeR tS . F.TRRRRON. PPT 
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CHDON tokyo 

S305 PRINT" Siecle ee ee eee PPP eR RRR (eel 

MUHICH" 

SS1Q PRINT " Sieelelelelelelerele(elelelerelereee TO 

cace town sydnew 
S320 PRINT " Seeeeleleleeleee ee PRP Pee PP! 
JERUSALEMNdacca 

588 ee a a 
> TFHI<STHEHHI=H1i+23 

S585 Hi=Ha+16+Ds: TFHI>2 STHENH1=H1-24:FEM S 

AH FRANMCISCO 

sa? HH=Hl+14: TFHH>2STHEHHH=HH-24: FEM HILO 


S583 HM=HE-BX+0S > [FHXCGTHEMHH=HX+24 > REM LO 
CAL 

2916 H2=HS+19+05 > IFH2>23THEMH2=H2-24 : REM H 
EW YORK 

S515 H3=Ha+21 > IFHS>23THEHHS=H3-24: REM RIO 
so28 H4=He+2: IFH4>23THENH4=H4-24 > REM JERUS 
ALEM OR CAPETOWN 

so2o H6=HG+9: Ae ie a —24°REM TOKYO 


soca HF=He+14@: IFH7>23THENH?=H7-24: REM StI 
mood H&=HE+6: IFHSS23THENHS=He-24:>REM DACCA 
m6 HS=H@+1: IFHS>23THENHS=HS-24 > REM MUNIC 


H9=HA : IFHS>Z3THENHS=HS—-24 > REM LOHDON 
S539 H SSS URECHLD Hi#=RIGHT#CH14, 2) :HOF=RI 
5 TEs RE°HG 

S5da Ho$= RIGHTECSTRSCH2); > :HB$=RIGHTECSTR 
#(H3),.2) :H4I$=RIGHTSCSTREC ate 

S545 HHt=RIGHTECSTRECHH?, 22 

SSds HXF=RIGHTECSTRECHHD, 2) 

S550 HSt=RIGHTS¢(STRECHS),. 29 :HEF=RIGHTECSTR 
#CH62,2> > HP#=RIGHTECSTRECHF 22 

S555 H&t=RIGHTHC(STRECHS), 2) 

S558 HIt=RIGHTECSTRECHS), 

S559 HSt= RIGHTS(STRECHS), 2) 

S56 MMt=MIDS¢TI$, 3,23: SS$=RIGHT#ECTIE, 2D 
SHAG PRINT "ORMMTADeTAAIe | Hiss ss tes a | 
Hots" MMS 
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6620 PRIHNTTABCIS23 "a" HS$s "oS MME RO" | 
HS#3" 9 "5 MME 
BG21 PRINTTARCES 3; "Wa" G HEE; "2S MME; 
6822 PRINTHH#; ": "G MME 
6H22 PRINT" Steedeleeleleleleqeteleleteqerens ; TAR CS >; HSS 
U3 "SMM; 
6624 PRINT" SOR Ow ele" | H4t5 9: MME: 
6625 PRINT" Alevw RP RRRO" HPs" MMS; ee 
G26 PRINT" Seeeleeeleleleleleletes" | TARC S395 H4$5": 
"MME; 
GG27 PRINT" MMM" | HSE "5s MES eg 
6828 GOSUBsSeqe 
6H30 BR=cHa<e ORCHEaS=3) 
6631 B=CH>=AANDCHECS? 
6432 PRINT" SWPP RRPRRRBLe ee" | 
GOS3 IF ¢Ha>=ZG .CRCB2 THEN PRIHT"AKOVER THE 
PACIFIC?" : GOTO 6@35 
6034 PRINT" s | Pe i 


" 


6635 IF ©Ha<2QANDCBRITHEN PRINT" SSR eee Bee 


6648 Y=2¥¢CHB-3> 

6641 IFY=AQTHEN Y=''+1 

6642 IFY>=12THEN ‘="'+2 

6643 IFY>=32 THEN Y="'+3 

6644 IF ('=37 THEN Y=3s 

6645 x2=39-'' 

6676 IF CHH<>HEXANDCX2S>399 THEN Fase 

6Q77 IF “HH<>HEOAND ¢X2¢=89 THEMPRINTLEFT#¢ 

CC#,0+1) "te" TKS: GOTOTEaSa 

60738 IFN1=M2o60TOeEaS5 

6679 IFX1<>G@7THENFRINTLEFTECCOE, Q4+1 > TABS H1) 

TKE:FRINT" TT"; 

GOS PRINTLEFTECCCE, G+1 SPC C2); -GET#H1, TEE 
SPRINT "©" 

6695 PRINTLEFTS(CCH,.O+1 9SPCCx82) "Boe"; 

TOGG POKES4+276.17:FOR 22=1 T7058: NEXTZ2? : POKE 

S4276,8 

VO1i8 PRINT" ieee" | 

fell 41=xX2 

Y@12 HH=Ha 

Fe5@ GETCHE: IFCHE="W" THENGOSUB 1 Sea 

Tie8e GoTOsSsea 
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EEDRNAT oe bE AAT LTT EEL) DD 


S08 PRINTLEFT#<CC$, DOWN+1 > TABCACROSS > 
SOL PRINT" SAQeleteteledeetetete eTetetedeTeTeteteteee" 

S020 PRINT™MRS"sHiSs" "i MMgs "=" 586s; "m5" 
t u I: " 4 u ‘ 

S030 IF DS THENPRINT"S SUMMERTIME"; :GOTO 
ease 

2040 PRINT"HCNORMAL TIME?" ; 

SOS PRINT" Sie" 

S68 RETURM 

16040 INPLITH 

16050 B=N#1G000 

1@G6@ RETURN 

11G8@ PRINT" MOOR RERBRRENTER TIMEZONE 


11G1@ PRINT:PRINT"PRESS @C™ FOR CEHTRAL EU 

ROPEAM TIME ; 

11@45 PRINT: PRINT"ENTER SOM IF OTHER TIME 

ZONE" > RETURH i 

ea PRINT'SENTER NUMBER CF HOURS TO BE A 
ED 


ch ite PRINT"TO GREENHICH TIME IN DIR 
11976 PRINT:PRINT"HEST TO GET THE LOCAL TI 
ME 

11898 PRINT:PRINT"¢CI.E. GREENLAND=3, JAPAN= 
13. MUHICH=232 

11186 IMPUTH 

11118 E=H#*1006a 

11128 RETURH 

12668 REM DAYLIGHT SAYINGS 

12618 PRINT" em" 

12826 PRINT"DAYLIGHT SAVINGS TIME ¢Y/’Ho?" 
12638 GET DS#:1IF Ds¢="" GOTO12a 3a 

12646 D5=6 

12858 IF DSs="""THEN DS=1 

12866 RETURN 

12860 INPUT" SRR RRR RPRPRRRREBE" ; | TF 

13166 PRINT" SSR RRPRPPPRRP REDE! 
13258 BEHx: T=VALCLT#2+B-DS#1 8088: IFTS240n8 
BTHEMT=T-240888 

13255 EX=E“ 16608 

13268 TH="GGGGGE"+M I DFC STRECT 3.22 

13265 TIf=RIGHTEC TS. 69: RETURH 
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Reaction 


This program tests your reaction time. Hit a key 
as soon as the word 'GO !* appears on the_ screen, 
but don't hit the key too early because the 
computer will know you're cheating. Your reaction 


time and the average time will be displayed after 
each try. 


1 POKES3281.2:POKES3298@,5:PRINTCHR#¢5) 

2 GOSUB20a 

3 BS=" ": DUMMY=RNDC-TID 

4 PRINT"THIS PROGRAM TESTS YOUR REACTION T 
ME " 


S PRINT" XPRESS ANY KEY WHEN THE WORD" 

6 PRINT"MASG0 !@ APPEARS." 

¥ PRINT"MWOQUR REACTION TIME AND YOUR" 

8 PRINT"AVERAGE TIME WILL BE DISPLAYED." 
15 PRINT" PRESS “YY WHEN READY" 

16 GET RE$: IF RE$<>"4" THEN 16 

17 PRINT"D": POKES9468, 12 

18 TI1$="G@00G6" : T=TI+RND¢ 1>*300+60 

26 PRINT" CIeIMMATTENTION ..." 

S@ GETAS: IFA¢<>""THEN PRINT, "Meee SOU C 
HEATED #¢@" :GOTOS7 

35 IFT>TITHEN3@ 

40 PRINT.."SMsLOS!":T=TI 

6@ GETA#: IFAS=""THENGG 

78 Kx=(TI-T)/66%188 
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73 GOSUB20a 

36 PRINT" Mm" BS" REACTION TIME :"K2/100 
"SECONDS" 

81 IFKA>S9THEN PRINT. "MIMSHAVE SOME COFFEE 

11": GOTO8? 

82 M=M+1: TL=TL+KeA > L“=TL/M 

85 PRINT BE" AVERAGE TIME :"L2/1@0"SE 
CONDS " 

87 PRINT" Mteeenn" 

9@ PRINT" C : CONTINUE THIS TEST" 

95 PRINT" WN : NEW GAME" 

1@@ PRINT"M E : END OF GAME" 

118 GETA#: IFA$=""THEN11@ 

120 IFAS="N"THEN M=@:TL=@:GOTO18 

136 IFA$="C"THEN1S 

14@ IFAS="E"THEN17@ 

135@ GOTO116@ 

176 PRINT"TRem". "END OF GAM EXOD 


186 END 


266 PRINT"TIa"."STEST OF REACTIONMINO" 
2@1 RETURN 
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Print Using 


When printing numbers you often need a certain 
format for the numbers- dollar amounts, for 
example, where you need two digits after the 
decimal. Some versions of BASIC have a PRINT USING 
command for that, where you can define the format 
of numbers using a character string. 


Since the COMMODORE 64 doesn't have this command 
we have to use a subroutine doing that job for us. 
The program listed below does that for us. The 
formatting is defined in the subroutine starting 
at line 50000. 


The subroutine uses the following parameters : 


UU number to be printed 

US$ USING string, defining format 

UL digits left of decimal 

UR digits right of decimal 

UU$ auxiliary string 

UP$ auxiliary string 

UI running parameter 

UP position of decimal 

VAS. output-string left of decimal 

UB$' output-string right of decimal 


It is very easy to use the _ subroutine. Before 
jumping to the subroutine assign the number to be 
formatted to variable UU and the format wished to 
uss. 
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On BASICs with. PRINT USING, the USING string 
usually consists of number signs (#). With our 
subroutine, it is two numbers separated by a 
decimal. For example .USS="5. 3" is the same as 
USING" ##### HHH” 


The first number means the number of digits before 
the decimal. This number has to be the actual 
number of digits in front of the decimal plus one, 
because of the sign of the number. With numbers 
smaller than one, the program adds the leading 
zero if it is not there. 


The second number means the number of digits 
behind the decimal. This number may be from 0 
through 9. ‘ 


The program automatically rounds the numbers (4/5 
rounding). If you don't enter anything for the 
digits behind the decimal - for example USS$="5." - 
then the program doesn't round the number. 


The standard formula for rounding, INT(100*A+. 
5)/100, doesn't work for negative numbers, because 
command INT always creates the next smaller number, 
for example INT(-.0001) gives you -1 as a result. 
To get the standard rounding, the program treats 
the sign of the number separately. 


= REM TEST OF PRINT USING 
18 PRINT CHR#¢147> 

20 IMPUT"EMTER MUMBER ";A 
38 INPUT"ENTER FORMAT "SUS $ 
48 UU=A:PRINT:GOSUB S8818 


24 PRINT: PRINT 

6 PRINT"NEW NUMBER. NEW FORMAT A>" 

7a PRINT"SAME HUMBER. NEW FORMAT <B>" 

S8 GET Af: IF AS="" THEN Se 

38 IF Af="A" THEN PRINT:GOTO 2&8 

16@ IF Af="B" THEN PRINT:GOTO 38 

11@ PRINT TABCPOSCHO+VALCAPI OS "I"S GOTO 8a 


a 
=k 
aS 


SHE REM ##* PRIHT USING FOR Céd #44 
SHBLG UPS=RIGHTSCUS#. 19° UL=INTCVALCUSS 2 
SOG1S IF UP#<>"_." THEN UR=VALCUPS> - GOTOSee 
2 

SHGSE VAS=STRECSGHCUUO#INTCABSCUUS oot". "OU 
Be=""°UL=UL+1 > GOTOSeGFS 

S8G25 UL=INTCVALCUSH#> 9 

SHESH UUF=STRECSGNCUUDHC INT CABS (UU #18 TUR+ 
271A TID 

HESS UP=G: FOR UI=1 TO LENCUUS> 

SHO9G IF MIDSCUUS.UT. 19="." THEN UF=LT 
S6645 MEST UL:IF UF=@ THEN UP=UI > UU$=UU$+" 


SHES IF UF<>2 THEN S8eea 

SHG55 ULS=LEFTECUUS, 1)+"8"+RIGHTF¢UUF, LENG 

~UUE)-1)-UL=UL-1 : UR=UR+1 

SHH6G URS=MIDSCUUF. UP, LEN CUUS>+1 94+" 88000R88 

ae" 

S65 URF=LEFTECUBS, UR+1 > 

S887 UAF=LEFTSCUUF, UP-1> : 

~@675 IF LEMCUR#2>UL THEN FRIHT"US# TOO LI 

TTLE" : STOP 

SeeSe TF LENCURF2<UL THEN UAF=" "+UAR#: GOTO 
pa] SS 

SHBSS PRINTUAS+UES; - RETURM 
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TONES O PRN ROR CAT TT NIT 


Hires Plot 


This program allows you to draw mathematical 
functions in high resolution graphics. You may 
enter functions, for example 'Y=SIN(X)' or ‘Y=X*X'. 


After entering the function to be printed, the 
program will ask you for the range. Enter, for 
example ‘'-3, 3' here, if you want the function to 
be displayed in the range from X=-3 to X=3. The 
range for Y may be entered by hand also, or you 
may let the computer decide on that. 


1 FEM PLOT-PROGRAM FOR SIME 

4 PRINT"TIMSIHE CURVE. FOR HEM DIAGRAM PRE 

So Fi": <=8 

S IHPUT"SEWTER NUMBER CIF PERIONS ";PF 

& AH320"C2#reP > REM AMPLITUDE 

18 VShs248: FOKEV+1 5.59: POKEV+e4, 24: TF SS8TH 

Bie. 

25 Ss eagise 28 etl 

. FIR S=ATOS1IS: Y=39: GOSUBIGAR: HEATH REM X- 

A IS 
| FORYSATOL99: S158: 

Aly 41S 

SA FORKSATOS19 

$8 Y=39-INTCA#SING (8-159 ele HP S199 

45 IF CGR 199 7HEMEA 

| GUSUB1ORG 

A WEXTH: A¢S"" 

5 GETAS: IFAF<SCHRS (13:39 THENTA 


an POKEW+17.27 : POKES od.21:° PRINT" NEW EM 
TRY": GOTOS 


of 7 
J 
an) 
wn 
— 
Las) 
— 


AAG: MEXTY: REM 4! 
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i 


a 
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4AC 
1. 
1,254, 262, 288 246, a6 
Aas 
AS 


PREGHIHT CRED 
PY=Z2GeINTCYYS9+CYAKDF 3 
SP=8192+PR+FY 

PH=2 T¢ ?-CSAND? 3 

POKESF. PEEK CSP ORPH 

RETURKH 

FOR I=87043 :READM : POKES91524+1.8:°MEMTI 
DATAL62. 16 

DATAI68. 6,169.4, ise.e53. 133.254.1538. 1 


£145,253, 208. 208.251 


DATARS 3H, 254, 202,208, 246,169.06, 160.32, 
nATADS id, ‘BtAS 32,145,253, 206, 266,251.23 


RETURM 


Se eS 


3-D Plot 


This program allows you to draw three-dimensional 
functions on the screen or on a 1525 printer. 


After you have started the program with RUN, you 
have to enter the function in this form : 


Z=function‘ (X,Y) 
for example : 
Z=X+Y*Y or Z=SIN(X)/Y 


The function will be translated and written into 
the program lines marked with FFFF... 


Important note ; 


You have to type in the program exactly as it is 
listed, including the FFFFs. If there are 
characters missing, the program may not work 
properly because the program would place the 
function in a wrong area. 


After you have entered the function, the computer 
will ask you for the ranges of X, Y, and Z. Enter, 
for example '-2,2' if you want the variable to 
range from <-2 to +2. If the ranges for all 
variables are the same, the display will not be 
distorted. If the -ranges are different for the 
three axes, there will be a distortion. You also 
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have to enter the number of steps. If you chose a 
large number here, for example 10 or 20, the 
graphics will be better, but it will take longer 
to draw. 


When you enter the ranges for the variables xX and 
Y, make sure that the function can be calculated 
properly by the program for the whole range. You 
have to avoid mathematically undefined 
calculations, for example divisions by zero, or 
logarithms of negative numbers. If the program 
encounters an invalid mathematical calculation it 
will stop and display an error message. 


Below you will find some figures drawn by this 
program. 


After entering the necessary information, the 
program will jump into the high resolution 
graphics mode and start drawing. When the drawing 
is finished, the coordinate will be drawn on the 
left side of the screen. At this point you could 
press ‘P' to send the graphics to a printer hooked 
up to the computer. 


If you wish to draw a new function, do a warmstart 
by pressing the RUN/STOP and RESTORE keys at the 
same time and start the program over with RUN. 


Z=SIN(Y)+COS(X) 
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TETETPPPPUEUT TT EPEEEERUETOPETRPEPERTEPPOeRPeet TE EPOP PUT TA TOOT OR PROT TEP TIT OT TE PEROT ITTF TEEPE OT OTOL TEPEPOPOTOSTT OTC OT OTO POET OOET TTI PTET ELECT OPT OVPPEP IESE TOPEP OTTO OETOPETOPITELTOCEPOTI TOTO PEEUEC EOL O OPER TE OCEOS TEP EOPOUEPSOEP EL TOU ECS OP POWRE POOR EERES E 


Ws 

ih 

ores (} 
cee A 

-@- 


fl 
\ AY) 
Ms 2 


RESIS OS 
\ SRE SS. 


\\ 
. 


Z=EXP(SIN(X)) /EXP(SIN(Y)) 


Z=EXP(SIN(Y)) /EXP(SIN(X)) 


Z=1/LOG(Y)-EXP(X) 


1 REMAeeeKERER 3-0 PLOT aaekeiaobit 

2 REMAKE BY R. HEIGENMOSER 4840 

5 POKES, 1 :POKE46, 65: POKE47. 1 :POKE48,65:PO 
KE49, 1:POKES9,65 

7 DIMZ$(23) : FORI=@T023 : READAS : 2$¢(1>=A$:NEX 
T:GOSUB1 aaa 

8 FORI=828T0890 : READA:POKEI,A:NEXT 

18 FORI=9G8T0992 : READA:POKEI,A:NEXT 

12 DIMH(32@),L¢320) 

14 FORI=1.70320:H¢CI>=2@8:L¢19=@:NEXT 

16 GOSUBF@aG:REM END LINE 

19 POKESS265, 59: POKES3272, 24 

28 SyS(8Z28) 

4@ AA=8192 : T2=8:T3=1 

8@ REM X-DIRECT. 

9@ FORRE=@TOSC-1 :T@=@:T1=0:LH=1 

106 FORXS=16+RE#SXTO160+RE#SX : T1=T1+1: IFTL 
=3THENT1=0: TO=TO+1 

181 ¥N=(X1+¢(XX-16-RE#SK)#XS) 

143 M=XN: Y=1+YS#RE 

196 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFPP 
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
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167 
111 
112 
116 
117 
118 
120 
138 
144 
168 
188 
198 
Wo 

195 
197 
288 
34 

1608 
Eat 
16148 
1426 
1848 
1856 
1852 
1835 
186a 
1865 
1478 


2=-INT¢ (2-2H9/29)+180-RE#SZ+TO 
IF2<@THENH( X¥ =8: LH=1 :GOTO2E@ 
IFZ2>2@@THENL ¢ XX) =260: LH=1 : GOTO200 
IFZCHCX*) THENHE XX =Z:GOTO118: REM ABOVE 
IF2<L¢8%) THENLH=1 :GOTO2@@:REM CENTER 
IFZ>L 0X89 THENL (XM =Z: REM BELOW 
YP=INT¢2Z/8) :XP=INTCKK 8) 
FAl=¢'tP#4Q+XP > #8 

Alr=2-8#YP+A1 

R=KN-B#XP - M=2TC7-R) 

I=PEEK CAY+AA> 
POKEA'Y+AR, IORM: ¥2=Z: IFLH=1 THENLH=@: Vi= 


DI=V2-V'1: IFDI<-1 THENGOSUBE6@Q@ : GOTO286 
IFDI>1THENGOSUB6 1 @8 
MEXTRX : IFRECSC-1 THENGOSUB2G0@ 


@ NEXTRE : GOTO2216 


PRINT"SJ":PRINT"@@@ENTER FUNCTION TO B 
SPLAYED :" 

INPUTFS:LE=LENCF#) 
FORI=1T03:READA: ZA=0 

FORJ=1TOLE :F=ASCCMIDS¢(FS,J,199 
IFF<65THEN1 186 
IFF=94THEMF=174 : GOTO1148 
IFF=880RF=890RF=9@THEN114@ 
BE=MIDSCFS, I,39 

FORK =@TO23 : IFB#=Z$¢(K> THENI@75 
NEXTK: PRINT: PRINT"ERROR ! 11": PRINT"ST 


ART OVER !":END 


1875 
1160 
1145 
1114 
1115 
1148 
1154 
1168 
125@ 
1268 
1278 
1288 
1298 


F=K+17@: J=J+2:GOTO0114@ 
BS=MIDS(F#,J,19 

FORK =@TO023: IFBS=Z# CK) THEN1115 
NEXTK: GOTO1146 

F=K+17@ 
POKEA+2A.F : 2A=ZA+1 : NEXTJ 
POKEA+2ZA, 58: POKEA+ZA+1,143 
NEXT I 

INPLIT"X—-RANGE <= "iK1,%2 
INPLUIT"Y-RANGE © "S¥1,42 
INPUT"2-RANGE : "321,22 
INPUT" STEPS -_ "3$C 

2$=¢ 22-2197150 : ZH=Z1+¢2Z2-21972°KS=CK2 


~819 150: YS=C¥2-419-"CSC-1) 
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SZ=INT(48/°SC+. 53 ' SX=3eSZ 
OL=(K2-K197CSC-1) 02=CV2-¥'1 7 CSC- 1 ® 


04=150/¢SC-1) :03=04/3 : RETURN 
REM Y-DIRECTION 
T3=T3-1 : FORSP=OTOSC~1 :LH=1:T@=T2:T1=T 


O5=10+INT¢SP#O4) 
FORXX=O5+RE¥SXTO0S+(RE+1 #SX 
T1=T1i+1:IFT1=3THENT1=@: TA=TH+1 
WN=¢¥1+¢XX-05 #02) 

M=X14+SP¥#O1 :Y=4N 
FFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFF 


FFFFFFFFFFFFFFFFFEFFFFFFEFFFFFFFFFFF 


2040 
3) 
2668 
2678 
2898 


2=- INTC ¢€2-2H9/2S5)+1G8-TO+ INTC CSP#O4) 7 


IF2<@THENLH=1 : GOTO2286 
IF2>2@8THENLH=1 : GOTO2280 
IFZ<L 6X8 THENIFZDHC XX) THENLH=1 : GOTO22 


§8@:REM CENT. 


UEC LEELA LL REEL 


YP=INT (2/8) : RP=INTCRX/8) 
FAl=CYP#40+XP #8 

AY=2-S#7P+AL 

R=XX—-B#XP : M=2TC7-RD 

I=PEEK CAY+AA> 
POKEAY+AR, IORM: Y2=2: IFLH=1 THENLH=@:¥'1 


DI=V2—-¥1: IFDI<-1 THENGOSUB6@R@ : GOTO2Z28 


IFDI>1 THENGOSUB6 188 

NEXTX® : NEXTSP : T2=T@: T3=T1 > RETURN 
A=6: B=: FORZ=6T0268 
IFZ<>ATHEN2Z256@ 
FORXX=BT06 : GOSUB258@ : NEXTHX 
READA.,B 

4X=6 : GOSUB2500 

NEXT2 


GETBS: IFB#=""THEN2278 
IFRS="P"THENS@BG 

END 
YP=INTC278) > XP=INTCRK/E2 
RA1l=C YP#4B+XP OS 
AY=2-S#YP+A1 
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TYYOUUTOATEEST ONT ENDPREYOOVVEEYENT OQ UEQTEOOUIVETOLIEET 


ULES aa ea TN Sal sl ill TTA 


| 2J28 R=XX-S¥XP > M=2TCP7-RD 
| 2538 I=PEEKCAY+AAD 
2548 POKEAY+AA, IORM: RETURN 
4360 DATA+,-. #7. T AND, OR, >,=.<,. SGN, INT. AB 
S.USR.FRE.POS, SQR. RND.LOG, EXP 
4816 DATACOS, SIN. TAN. ATN 
4968 DATAZS34, 3868, 5986 
=868 DATAI69,@,133.251,169.4.133,.252, 162.8 
#169,15.129,251,236,251,208,2,238,.252 
S618 DATAIGS, 251,201,232. 263,248,165. 252.2 
1,7, 208,234,169, 32.133,252.169,4,133 
| 2828 DATAZS1. 169,6.129,.251,2398.251,.208,2,2 
| 38,252,165, 251,261,0, 208,244, 165,252 
838 DATAZH1,.64,208,234,96 
S835 REM PRINT SR 
3846 DATAI62.@., 169, 128,141,232.3.169,8,141 
»233,3,160,6,177,251,45,232,3 
S445 DATAZ4@, 5,169, 128,76, 168,3,41,8,.13,23 
3.3 

| dog DATA24, 106, 141,233.3,200,192,7,208,22 
»9,128,142,.235,3, 162,06, 238,234,3.230 

see DATAZ5S3. 208, 2,230,254, 129,253, 174,235 
(43,232, 224,8,.246.7,24,118,232,3,76,139 
5878 DATAS, 165. 251,24,105.8, 133,251,144,2, 
230, 252.173,234,3,281,160,208, 164,96 

3148 DATAZ4,3,49,3.74,.3,99,6,124,3,149,3.1 
74,3,.199,6,6,6 

3114 DATA2S,3,43,3,.62,3,81,5, 100,3,.118,3,1 
3r.3.156,5,6.8 

Si2@ DATAI71.3,186.3,2@1,3,216.5,.231,3,246 
»3,261,3,.276,5,6,6 

6608 FORZ=V2+1TOVi-1 

6@18 YP=INTCZ/S) : RP=INT CRRA 8) 

6826 Al=(YP#40+XP #S 

5830 AY=Z2-S#YP+Al 

685@ I=PEEKCAY+AAD 

6@6@ POKEAY'+AR. IORM 

6878 NEXTZ: V¥i=V2: RETURN 

6186 FORZ=V2-1TOV1+1STEP-1 

6118 YP=INT¢(Z/S) : XP=INTCRK/8) 

6120 AL=CYP#4O+NP #8 

613@ AY=2-B3#'yP+Al 

6154 I=PEEKCAY+AA> 


7 
| 


WHA Ad oddde ns 


6166 POKEAY+AA, IORM 

6176 NEXTZ:¥1=V2: RETURN 

FOGG RE=SC-1:TG=@:T1=@ 

7810 FORXX=16+ INT CRE#04>T018+¢SC-1 2 #SK+IHT 
CRE#¥O4) > T1=T1+1 > IFT1=3THENT1=@: T@=T@+1 
PE20 YN=C41+CXX-10-INTCRE#O4) #02) 


F225 X=X1+RE#O1 = Y= 


Ih 


7a3q FFFFFFFFFFFFFFFEFFFFFFEFFEPPEFFFFFFFP 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFF 

7040 Z=-INT((Z2-ZH)/29)+100+ INT CRE#O3)-TO 

7100 HCXX)=2 

7200 NEXTXS RETURN 

8AG@ ZE=5A:REM PRINT ROUTINE 

8818 POKE25S1,0:POKE252, 32: ZA=@ 

8012 FORK=1TOZE : POKE253, 63: POKE254,31 :POKE 
a 


SH15 SYS¢9@8) :Ag="" 

Ba26 FORI=seaeaT0S159 

SO3G A=PEEKCI> 

SO4@ AS=AF+CHRECAD 

S@58 NEXTI 

G@6Q ZA=ZA+1 :OPEN4. 4:PRINTH4. CHRS(S AS; 
S065 IFZA=2THENZA=6@ : PRINT#4 

S667 CLOSE4 

S@7O@ NEXTK: IFZECS@THENSSaG 

814@ SYS¢s28) 

6110 K=@: TG=@:A=6: B=5:FORXX=67T0156 
8120 [FACSSXTHENS15@ 

8136 FORZ=KTOK+B: GOSUB2S@6 : NEXTZ 

814@ READA.B 

81560 Z2=K:GOSUBE5@@ : TA=TA+1 : IFT@=3THENTS=8 : 


6168 NEXTX 

821@ K=5@: Ta=@:A=156: B=5:FORKX=156T02 

S220 IFACDMXTHENS258 

S23@ FORZ=KTOK+B : GOSUB25@@ : NEXTZ 

S240 READA,B 

8258 2=K: GOSUBS5@G@ : TA=TA+1 : IFT@=S3THENTA=€ : 
1 


8260 NEXTKX: 2E=14 :GOTOS@18 
830° OPEN4. 4: PRINT#H4, CHRE¢C15) 
$31@ CMD4: PRINT 


8315 
S328 
8330 
8344 
8345 


~B35a 
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PRINT"FUNCTION : 
PRINT"X-RANGE : 
PRINT" 'Y-RANGE - : 
PRIHT"2-RANGE : 
PRINT"STEPS 
CLOSE4 : END 


";F$:PRINT 
OGRE NZ 
"VLG" = "542 
“3215 "= B2 
";SC 


Function 
Keys 


The following two programs take advantage of the 
function keys on the right hand side of your 
keyboard (f1 through f8). 


The first program assigns often used BASIC words 
to the function keys. You then only have to press 
the proper funtion key to get the commands on the 
screen. 


SH REM FROGRAMMABLE FUNCTION KEYS 

BA REM LORD MACHINE LANGUAGE 

7A ASSQLTé: B=80 

Se FORISATOA+E: READD: POKET. D0: HESTI 

Se REM DATA MACHINE LANGUAGE 

188 DATALES.11,.160.196,.141,.1435,.2.148. 144, 


118 DATASE. 162.6, 229, 203, 240,8, 282, 224,2 
120 DATASAS. 247, Pe. 72, 285) 228, 197 240. 249, 
124 
130 DATALS?. 17S. 141. 2.201, 1,288.4, 232, 232 
140 DATASI2, 222,216; 169,0.224, 3,240, 8,2 
15 DATALGS. 9. 282,224, 2,208,248, 178, 168,68 
160 DATAZAG, 189,81,196, 153.118.2,201,.13.24 
a 
174 DATAS, 232, 192.9,48,240, 132, 198,76,66,2 
190 SYSSGLTE:REM START 
S49 REM INPUT OF TEXT 
Se AS50257 B=? 1 
27 FORI=ATOR+E: READD :POKEI.D:NEXTI 
298 REM DATA TEXT 

BOO DATASH, 82.73, 78.84. 35.0.0,.8°REM PRINT#H 
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aaa aa aa a aaa a aaa aa a 


218 DATAS2., 35.78, 13,.0,8,8,8.8:REM RLM 

326 DATAV6. 79,.65,69,8,6,0,8.8:REM LOAD 
S38 DATA? 26,69,.79,0,0,8,8,.8:REM OPEN 
348 DATA. 78.98) 85,84,35.0,8, @: REM INPUT# 
358 DATATS, 73.93. 84,8,6,.8,.8,8:REM LIST 

s68 DATASS, 65.56,69,08,0,.6,.8,8:REM SAVE 

oP DATARS. 76. 79.83,69,8,.6,.8,.8:REM CLOSE 


The commands used are : 


PRINT# 
RUN 
LOAD 
OPEN 
INPUT# 
LIST 
SAVE 
CLOSE 


The second program allows you to assign your own 
text to the function keys. The text for each key 
may be up to 9 characters long. 


1€ 


mt 
EE 


PRINTS" :FORI=17T08: READS: S¢19=$+50256 
I 


= 
< 


eT 


> 


PRIMT"MUMBER OF FUNCTION KEY "; 

q GETA: IFA=@THEN1a2e 

Bo8 IFA=9THEM1a2e 

' PRINTA:PRIHT:FRINT"ENTER TEXT ¢@ FOR 
URN) 0" 

B® INPUTT#: IFLEN¢ T#2>9THEM1 65a 

FORI=1 TOLEN¢C T#):F#=MIDSeT#,. 1,13 
F=ASCOFS) > TFF=647THEMF=123 
PORESCAI+1.F -MEXTI 
FORI=LEN¢T#2+1709:POKESCAS+1,8:HESTI 
PRINT: PRIHT"ANOTHER KES cY/N> " 
BETAS: IFAS=""""THEHIG1a 
IFA#="H"THEHEND 

BOTOL1148 

NATAS. 45.19. 54.27,63,8,36 


aon 
1 


i es PT 


be IT ao 4 17) 10 So. = hao fae m a 
ce 


ne a ed 
wt] 
ED Sp Es 


fib Re be be pe TG? 


Ty tes fe 
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. 


iy 


This program only works if the machine language 
routine from the first program is still in memory. 


_ Here is a disassembly listing of that machine 
language routine : 


C400 LDA #S$0B 

C402 LDY #$C4 

C404 STA $028F 
, C407 SsTY $0290 

C40A RTS 

C40B LDX #$06 

C40D CPX SCB 

C40F BEQ $C419 

C411 DEX 

C412 CPX #$02 

C414 BNE $C40D 

C416 JMP SEB48 

C419 CPX ‘$Cc5 

C41B BEQ $C416 

C41D STX $cC5 

C41F LDA $028D 

C422 CMP #$01 

C424 BNE $C42A 

C426 INX 

C427 INX 

c428 INX 

C429 INX 

C42A ~~ CLD 

C42B LDA #$00 

C42D CPX #$03 

C42F BEQ $C439 

C431. CLC 

C432 ADC #$09 

C434 DEX 

C435 CPX #$03 

C437 BNE $C431 

c439 TAX 

C43A LDY #$00 

c43c INY 

C43D LDA $c451,xX 

C440 STA $0276,Y 


C443 
C445 
C447 
C448 
C44A 
C44c 
C44E 


SsTY 
JMP 


#S0D 
$c44c 


#$09 
$c43c 
$Cc6 
$EB42 


Here is a list of addresses used by the machine 
language program : 
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00c5 
00C6 
00CB 


0277-0280 


028D 


028F-0290 


EB42 
EB48 


key pressed last 

number of characters in input queue 
currently pressed key 

keyboard buffer 

flag for SHIFT/CTRL/C= keys 
keyboard vector 

end of keyboard poll 

start of keyboard poll 


Calculation 
of Pl 


The formula for a circle with a radius of 1 is : 
X*X+yY*y=1 
(figure book #160 pg. 112) 


If pairs of random numbers are created between 0 
and 1, as X and Y, the co-ordinates of points will 
result. If X*X+Y*Y is smaller than 1, the point is 
within the quarter circle; otherwise, it is within 
the shaded area. 


The program listed below uses these facts to 
calculate PI. 


REM CALCULATION OF PI 

PRINT'T": REM CLEAR SCREEH 

G=1.61883 

IMPUT"SEED ¢@.1 TO @.9o"G"' 

GoTo {ee 

VW= {ARs cGy Yst-INT Cy)  RETURH 

2 J=INT¢ ¢44HI/T—-3. 141599#10694+48: TF I<1 THE 


Mmm iA bos hae 
3 ay i ip hon im 


64 IF J>F3 THEN J=7rs 

FA IF J=4e@ THEM PRINT TABC4Q35 "9" TARC IOS" 
*" SRETURH 

S@ IF I<4@ THEN PRINT TABC IO; "#"> TABC4H@S;" 
I" RETURH 

SQ PRINTTARC 4G); "#" > RETURN 

1@@ FOR TR=1 TO 56 

118 GOSUE €a@: =: GOSLBREA 
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126 IF s#x+y8Y<=1 THEN HI=HI+1 

138 T=T+1 

144 GOSUE 62 

156 MEXT TR 

166 PI=4#HI 

178 PRINT"AFTER®; T3"CYCLES =: PI=";PI/CT 
16 GOTO 1868 
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Screen 
Graffiti 


The program listed below creates random patterns 
on your screen. Below is a sample printout in 
black and white. On a color monitor you can see 
the graphics in color. 


L2G PRINT " TyeeteteDedele de Tete ye Tere we we ee We ee ae Be eB Be eee Re eg 
120 PRRESSSS0. 1: POKESS2S1.1:L=le 


140 D=INTCS$RMIIC 19944 
SQ IFD=1THENSSA 
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Be TFD=2THENS2e 
A IFDSSTHEMPRINT "Ml" ; 
SQ IFD=4THEMPRINT"#t"; 
36 IFD=1THEMPRINT" thal"; 
Ae TFDS2THEMNPRINT " oti" | 


4 IFD=3THENPRINT" 2) me ; 
IFIIS4THENPRINT" 6h oem ; 
PRINT! RN" ; 


9 GOTOLdG 
Sa L=L+1 


IFL=24THENS 98 


7a PRINT" HI" ; 


303 Cede Cd Ph Pee Pa fa Peg fa fn Pe Pe Ped 
Lor 


PA fe ta fae Gy! 


Zee 


Te 


iT; 


GOTOLSa 


IFL¢1THENL=1 
PRINT"")"; 
GOTO1S8 

END 


NTL LL 


Day of the 
Week 


This program calculates the day of the week for 
any date entered. Make sure you enter the date in 


the correct form, for example March 2nd 1984 is 
entered as follows : 


03-02-1984 or 03/02/1984 


166 PRINT "Clete MAY OF THE WEEK mm" 
11@ PRINT" SISENTER DATE CMM—DO— sys" 

126 PRINT: IMPUTAS 

138 M=VALCMITSCAS, 1.299 

146 D=VALCMIDSCAF. 4.299 

1 TH=VALCMIDEC AE. Fo 455 

1 IFMDSTHEMLSa 

1 M=M+1 a: y=4'-1 

1 M=D+2 AMFINTC, SCHL HVFINT CV 4) -INTEY 


AA +INT CY dOR +2 


STFS eto DT NOLES hs 


o3 Tp Ee o Mm i im 


{: MEINTE Che P-IHN TCH 7 er +. 33 

= M=S¥#H+ 1 

218 We="SATSUMMONTUEMEDTHUFR I " 

2 PRINT 

2aoh PRINT" VAP" IS A "“SMIDECME, 
tJ y F oe 
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Wi (//14d¢veeegeadonernavevacrenraseenevenvenennnggnreneneveayeteyent 
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SOUTUTTUTPETOTTT TTI ETLL ELT CIEE TUT TET ELLE TT 


THLE NENA 


DUTT ELLE te tT) 


Number 
Conversion 


This little program is helpful if you need to 
convert decimal numbers into another system of 
numbers. All you have to do is enter the decimal 
number to be converted and the base of the new 
number system. For example, enter ‘'16' for the 
base if you want to convert into the hexadecimal 
system, or '2' if you want to convert into the 
binary system. 


166 REM CONVERSION OF A DECIMAL NUMBER 
11@ DIML<162 

12@ PRINT"*I" 

136 INPUT"ENTER DECIMAL NUMBER ";N 
148 INPUT"ENTER NEW BASE "3B 
156 I=@ 

16@ I=I+1 

178 R=C(N-/B-INTCN/B) #B 

188 L¢I>=R:N=INTCN/BO 

196 IFN>=BTHEN1686 

20@ IT=I+1:L¢I=N 

216 PRINT:PRINT"RESULT :": PRINT 

226 N$="ABCDEF" 

230 FORJ=ITOISTEP-1 

24@ IFL¢J)>=1@THEN27@ 

250 PRINTLCJD5 "MH"; 

266 NEXTJ: PRINT: PRINT :GOTO3@8 

278 L¢JX=L¢I-9 

28@ PRINTMIDS(N$,L 609.1); 

296 GOTO266 
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LUT FUNUTTUTENNUUNAUNG ENACT EN UCU TETETH OTTO GELT EGET ET EEEOO PEATE EET EEG 


Bd PRINT"PRESS SPACE BAR FOR NEXT CONVERS 


318 GETAS: Jie Trea e 
326 GOTO12@ 


140 


Forecasting 


There are mathematical procedures available to 
forecast future events, for example sales for a 
future month, based on past numbers. 


Most mathematical procedures for forecasting value 
all numbers equal, even those that are dating back 
very far. The procedure shown here values past 
numbers with an exponentially decreasing factor, 
which means that past events contribute only a 
certain percentage to the forecast. 


The following formula is used to calculate the 
forecast. In the formula, 'F' stands for forecast, 
"R' for the result, and 'i' for the time index. 


Vi+1=Ejt+o(Vj—E;) with 0 (a4 1 


The forecast for the time ‘i+1" is calculated 
using the last result (at the time ‘i') plus a 
part of the difference between the last forecast 
and the actual result. Factor alpha, which can be 
between’ 0 and 1, controls the forecast. If alpha 
is 1, then the forecast for the time ‘it+1' is 
equal to the forecast for the time ‘i’, which 
means a constant forecast. If alpha is 0, then the 
forecast for the time 'i+1' is equal to the result 
at the time ‘i’. 
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If you solve the above equation you get : 


Vi41= Ej (1 a) te-[Ej_4-(1 a) ter-Vj_4 J = 


= (1a) Ej +00(1 a) Ej_4 +0? “(1 —-a)Ej_gta3 (1—a)Ej_3tat Vi_3 


As you can see you can neglect results of the 
distant past, if alpha is small. It is recommended 
to use values from 0.2 to 0.3 for alpha. 


To improve the forecast, we take into 
consideration the trend. Trend means the 
difference between the results at the time 'i" and 
ae ob Re 


To forecast the trend, we use the same technique 
as used with forecasting the results. TF is the 
trend forecast : 


TVi+1= Tj + BITVj-T)), 
with 6 being the trend factor (0 (6 (1) and Tj=Ej;—-Ej_} . 


where beta is the trend factor, which should be 
between 0 and 1 too. The trend 'T’ at the time ‘i' 
is the difference between the results at the time 
‘i' and the time 'i-1'. This again has the effect 
that data from the distant past are valued less. 


The final forecast is calculated as follows : 


VSi+1=Vi+1 + TVi4+1 - 


The program calculates all these numbers and 
displays the forecast for the next period (i+1). 


Alpha and beta strongly influence the forecast. 
You should select values from 0.2 to 0.3 for both. 
Try to experiment to find out the best values for 
your forecasts. 
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=, 
iat 


REM ANALYSING A TREND 


@ PRINT" cy" 
@ PRINT" **#* ANALYSIS AND FORECAST #& 


PRINT: INPUT"ENTER ALPHA (@<=AC=1) "A 
IFACQORA> 1 THENSG 
INPUT"ENTER BETA <@<=BX=1) "3B 
IFBCAORE> 1 THENGS 
INPUT"ENTER 1ST FORECAST ";¥a 
INPUT"EMTER 1ST RESULT "JEG 

N=1 ELSE: V1=Va:Ta=8 
PRINT "<I" : GOSUBZEG@ 

REM FUNDAMENTAL FORECAST 
WISEG+A#(VO-EG) 

REM CALCULATION GF TREND 
TR=EQ-E1+B#(TO-(EB-E1 >) 

IF TR=8THENZ8@ 

T$="+": IFTRCGTHENTS="—" 

PRINT "7"; TABC 2S) 5 T$ 

REM FORECAST 

VEV1+TR 

WO=¥1:M1=¥:E1=E0: TO=TR 

PRINTN41; TABC10); INTCV#1OO+, 5100; TAB 

: INPUTE® 

230 NeNe 

240 1FEQ<1THENENI! 
250 GOTOI12e 

260 PRINT"ALPHA="; AJ" BETAS" iB 
2818 PRINT 
2620 PRINT"PERION FORECAST RESULT TREND 


Dy ce 


—, 
— 


BME GWA O Rohe oS 


WOM Rhye eee eee eRe Oe he 
Mor AMOI Do ODM Dm 


238 PRIMT 
EA46 PRIMTN: TABC LO0 5 V8. TABC 2H); EA: RETURM 
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THE PROGRAMS FROM THIS BOOK ON DISK 


Use this page as an orderform 
[_] All programs from book No. 55 on disk US $29.96 
CL BLIZTEXT 1.1 — SUPER WORDPROCESSOR for the Commodore-64 US $89.00 


BLIZTEXT 1.1 

— Fully screen-oriented, up/down, left and right scrolling — Upper and lower case. 

— More than 70 commands. 

— Full 1/O compatibility with Commodore peripherals upper and lower case. 

— Works with practically every printer on the market, user definable printer control 
commands. 

— INCLUDE command allows handling large files on up to 4 diskettes or on cassette. 

— Built-in terminal software for electronic mail and networking, telecommunications 
mode, upload and download, save on disk or cassette. 

— Dynamic formatting, imbedded commands, 

— Single keystroke for disk directory and error channel 

— Program comes on disk or cassette. 

— Double line spacing, left and right margin justification, bankers. page numbering, 
and practically everything one expects from a good wordprocessor. 
Calculation functions. 


Guches No. 4965 Terminal mode works with VICMODEM! £89.00 

Manual only (approx. 120 pages) $29.95 

BLIZMERGE — program Order No. 4945 £39.00 
Name: (Please print) ...... SAP Padre eS 6 Mat ialehe 4b table cotewie ects 
Address:......... o dielelc Wale ale elebio tales 0 «6 06,0 0 6 td 0 we eles 
City/State/Country/Code .......... APSrONA Lie, Dinara. alate We. a 


Ask your local dealer or mail it to one of these addresses: 


ELCOMP PUBLISHING, INC. ELCOMP Computer (S) Pte Ltd. 


53 Redrock Lane 89 Short Street 

Pomona, CA 91766 Unit 03-07, Golden Wall Auto Centre 
USA Singapore 0718 

Phone: (714) 623-8314 Phone: 3382623, 3388228 

Telex: 298191 Telex: 22456 


Payment in US funds only: 

Check, money order, VISA, Master CARD, Eurocheck, ACCESS, Interbank. 
Prepaid orders add $3.50 for shipping (USA), $5.00 handling for C.O.D. 

All orders outside USA: add 15% shipping, California residents add 6.5% sales tax. 


Prices are subject to change without further notice! 
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Books & 


Software 


HARDWARE ADD-ONs 
for your C-64 
Parallel printer interface, driver 
Order-No. 4990 $19.95 


Universal Experimenter Board 
Order-No. 4970 $9.95 


Expansion Board (holds 4 exp. boards) 
Order-No. 4992 $29.95 


SOFTWARE 
for your C-64 


MACROFIRE — Editor/Assembler for 
the Commoadore-64 
The best macroassembler you can buy ! 


Order-No. 4963 $89.00 
BLIZTEXT 1.1 -- Wordprocessor 
Order-No. 4965 $89.00 
BLIZMERGE 


Mailing list program which merges 
testfiles form Bliztext. 
Order-No. 4945 $39.00 


MACROFIRE — 


SUPERBOOKS 
for your C-64 


The Great Book of Games, Vol. | 

64 programs for the Commodore-64. 
Order-No. 182 $9.95 
Programs form this book on disk $19.95 


MORE ON THE SIXTYFOUR 

Tips, tricks, hints, very important 
subroutines. 

Order-No. 182 $9.95 
Programs form this book on disk $19.95 


HOW TO PROGRAMM YOUR C-64 
in 6502/10 Machine Language 
Introduction to Machine Language for 
the BASIC Programmer. 

Order-No. 184 $12.95 
Programs form this book on disk $19.95 


Commodore-64 Tune-up, Vol. ! 
How to expand your C-64. 


Order-No. 185 $12.95 
Small Business Programs for the C-64 
Order-No,. 186 $12.95 


Programs from this book on disk $29.95 


Editor/Assembler for the Commodore-64 


ON SALE NOW 
AVAILABLE IMMEDIATELY 
One outstanding tool, consisting of 3 powerful elements combined into 


one efficient program ! 


1. Fully screen-oriented Editor (more than 70 commands) 


2. Very fast assembler with macro capability 


3. Machine Language Monitor 


Assembly can be started from the editor. Translates in 3 passes. More than 
1,000 lables, screen oriented/no line numbers, scrolling, includes disk files. 
Practically everthing the serious machine language programmer needs every- 


day | 
Manual only 
Order-No. 4963 


$19.95 
$89.00 
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